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CADEIAS DE CARACTERES 

Uteis para quem quer trabalhar com algo mais do 
que simples numeros, as cadeias de caracteres (ou 
cordoes) sao empregadas em quase todos os ti- 
pos de programas. Utilize os cordoes para proces- 
samento de palavras 241 



ASSEMBLER PARA SPECTRUM 

Traducao de Assembly para c6digo de m^quina. 
Como calcular saltos e desvios. use de rdtulos. 
Espacos reservados para dados e variaveis. Como 
colocar os c6digos na memoria usando comandos 
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se mais eficiente no processamento de textos e na 
digitacao de programas. Saiba como utilizar as te- 
clas de apoio e melhore a velocidade e a precisao 
de sua datilografia. Urn programa que resolve to- 
das essas questoes 253 
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CAOEIIAS D 




COMPARE E CLASSIFIQUE 



CORDOES ALFANUMERICOS 



COMO FRACIONAR CORDOES 



UTILIZE CORDOES PARA 



PROCESSAMENTO DE PALAVRAS 



Empfegadas em quase todos os tipos de 
programas, as cadeias de 
caractefes (ou cordoes) $3o mutto uteis 
para quern quer trabalhar com 
algo mais do que simples numeros. 



Um cordao (ou string, em ingiSs) t, 
como jd vimos, um conjunto de earac- 
teres. Estes, por sua vez, podem ser le- 
tras, niimeros, sinais de pontua?ao ou 
quaisquer outros simbolos disponiveis 
no teclado, 

Normalmente, um cordao contem 
uma ou mais informa^oes liteis, ou mes- 
mo partes de informagao. Por exemplo, 
o cordao "PEDRO SILVA 241067 S" 
engloba diversos dados sobre uma lini- 
ca pessoa: nome, sobrenome, data de 
nascimento e estado civil. Esses dados 
sio considerados como uma mesma co- 
munica^ao. A data de nascimento pode 
ser divjdida em dia, mSs e ano; assim, 
na verdade, existem no total seis partes 
distintas de informa^ao. 

Em casos como o do exemplo acima, 
faz-se necessirio fracionar o cordao pa- 
ra extrair as diferentes partes da comu- 
nicagao. Em outros, ao contrdrio, po- 
de ser necessdrio unir dois ou mais cor- 
does- H& casos, ainda, em que se torna 
imprescindivel medir a extensao de um 
cordao (niimero total de caracteres) e 
calcutar o valor de algumas de suas par- 
tes numericas. Tudo isso e possive! 



quando se utilizam certas funcoes e de- 
claragoes disponiveis no BASIC da 
maioria dos computadores. 

Conhecida como concatena?ao, a 
mais simples dessas opera^oes consiste 
cm unir cordoes. Para etetua-la, empre- 
ga-se o simbolo " + ", Assim, se A$ for 
igual a "TUDO" e BS igual a "BEM", 
entao AS + BS sera "TUDO BEM". 
A concatenacao junta os cordoes sem 
acrescentar nada a eles. Assim, "439" + 
"241" e igual a "439241" e nao a 680. 



COMO CDMPARAR CORDOES 



Assim como i capaz de concatenai 
cordoes, o computador pode compari- 
los para verificar se sao iguais, como 
nesse simples jogo de adivinhafao. 



Este programa funcionara no ZX-8I 
se voce separartodas as linhas de deela- 
racoes miiltiplas. 

10 LET G-1: GOTO INT (BND*6) * 

10+10 

20 LET B$-"MACA"; GOTO 80 

30 LET BS-'LABANJA': GOTO 80 

40 LET BS-"BANANA': GOTO 80 

50 LET BS-'LIHAO": GOTO 80 

60 LET BS-"FRAMBOESA" : GOTO 

80 

70 LET BS""ABACAXI" : GOTO 80 

80 CLS : PRINT "EU SOU 



UTA. QUE FRUTA SOU EU?" 

90 INPUT AS 
100 IF AS-BS THEN GOTO 160 
110 LET G-G+1 
120 PRINT "ERRADO" 
130 FOR J-1 TO 200 
140 NEXT J 
150 GOTO 90 

160 IF G-1 THEN PRINT "VOCE A 
CERTOU NA PRIMEIRA TENTATIVA": 
STOP 

170 PRINT "VOCE ACERTOU APOS " 
;G;" TENTATIVAS" 
180 STOP 

10 G*1:0N RNDte) GOTO 20.30,40. 

50,60,70 

20 BS-'MACA'iGOTO 30 

30 BS^'LARANJA" :GOTO 80 

40 BS- "BANANA" : GOTO 80 

50 BS-'LIMACrGOTO 80 

60 BS-"fRAMBOESA" :GOTO 80 

70 BS-"ABACAXI" 

80 CLS: PRINT" EU SOU UMA FBUTA. 

QUE FHUTA SOUEU?" 
90 INPUT AS 

100 IF AS-B$ THEN GOTO 160 
110 G=G+1 

120 PRINT "ERHADO!" 
130 FOH J=l TO 1000 
140 NEXT J 
150 GOTO 90 

160 IF G=l THEN PHINT"VOCE ACER 
TOU EM UMA TENTATIVA" ELSE PHIN 
T"UOCE ACERTOU APOS" ; G ; "TENTATl 
UAS" 




ff^ 



5 R-RND(-TIMEJ 

10 G-1:0N INT(RND(1>*6)+1 GOTO 

20,30,40,50.60.70 

20 BS-' MAC*": GOTO 80 

30 B$-'LARANJA":GOTO 80 

40 B$-"BANANA" :GOTO 80 

50 BS-"LIHAO'':GOTO 60 

60 B5-"MARACUJA":G0T0 80 

70 B$-"ABACAXI" :GOTO 80 

80 CLS:PRINT"AdiVinhe: que frut 

a sou eu?" 

90 INPUT A$ 

100 IF A$-B9 THEN 160 

110 G-G+1 

120 PRlNT"Voce errou!" 

130 FOR J- 1 TO 600 

140 NEXT 

150 GOTO 90 

160 IF G-1 THEN PRrNT"Voc§ acer 

tou na primeira!" ELSE PRINT'Vo 

eft tentou' ;G! "vezea attf acertar 



SDE] 



Copie o programa anterior sem a li- 
nha 5 e croque CLS por HOME. Modi- 

fique a linha 160 e adicione a 170 como 
se segue: 

160 IF G»l THEN PRINT"Voce acer 
tou na primeira! ": END 
170 PRINT'Uoce tentou ";G;" vez 
eg. . ," 

Aqui, a linha 10 coioca o contador 
de palpites em 1 e "langa" em seguida 
um dado eletronico, que serve para se- 
lecionar uma fruta, ao acaso. As opjjoes 
sao armazenadas nas iinhas 20 a 70, 
Qualquer que seja a linha que o com- 
putador passe, ele armazena a fruta co- 
mo um cordao em BS e vai para a linha 
80, Nesse pomo voce tern que adivinhar 
qual Truta foi sorteada e digitar seu pal- 
pile, que sera armazenado em AS e com- 
parado com BS. Se estes forem iguais, 
o compuiador imprimira: "Voc§ acer- 
tou na primeira!", ou "Voce tentou 
(tant^s) vezes ale acenar,..". Se AS nao 
for igual a B$ o computador imprimi- 
ra: "Voce errou"; nesse caso, uma no- 
va tentativa deve ser feita. 

Mesmo que voce adivinhe o nome da 
fruta, a condi^ao AS = BS nao sera sa- 
tisfeita se voce escreve-lo de modo in- 
correto. Para que o computador consi- 
dere dois cordoes iguais, eles devem ser 
graficamente identicos — isto e, letras, 
espa<;os, sinais de pontuagao e numeros 
devem ser iguais. 

Uma das fun^oes dessa tecnica e ve- 
rificar entradas: 



IF AS» "SIM" THEN PftlMT "VOCE 
TEM CERTEZA?" 

A condi?ao nao sera satisfeita se a pa- 
lavra "sim" for digitada com letras mi- 
nusculas. 



ORDENACAO DE COHDOES 



As cadeias de caracteres tambem po- 
dem ser comparadas utilitando-se os si- 
nais de desigualdade < e > em Iinhas 
como essa: 

IF A$<B$ THEN PRINT "O PRIMEIRO 
fl ";A3 

Aqui, a condi(;ao AS<BS pergunta 
se cordao em A$ vem antes do cordao 
em BS, quando eles sao colocados em 
ordem alfabetica. Mas tenha cuidado; 
o computador coloca cordoes em ordem 
aifabetica, examinando o c6digo ASCII 
de cada uma das letras ou caracteres que 
compoem o cordao; por exemplo, a le- 
tra A no codigo ASCII equivale a 65 e 
Z, a 90. O problema e que as letras mi- 
niisculas tambem possuem codigos AS- 
CII: o a e 97 e o z, 122. Assim, todos 
OS cordoes que comegiarem com letras 
maiusculas serao coiocados em primei- 
ro lugar. 

Para complicar ainda mais. sinais de 
pontuagao, espa?os e outros signos tam- 
bem possuem c6digo,s ASCII; dessa for- 
ma e dificil prever em que ordem ficara 
um cordao constituido por diversos 
signos. 

Com o devido cuidado, os operado- 
res de maior ( > ) e menor ( < ), ainda po- 
dem ser utilizados para organizar cor- 
does em ordem alfabetica. Uma rotina 
de ordenagao alfabetica, que aplica a 
chamada tecnica de ordenacao por bo- 
Ihas, sera explicada mais adiante numa 
li(;ao sobre estruturagao de programas, 



COMO FRACIONAR CORDOES 



£ possivel tambem separar 
um caractere ou uma seqiien 
cia de caracteres de um cor- 
dao. Nos computadores 
TRS, MSX e Apple II is- 
so e fdto utilizando-se 
fungoes LEFTS, RIGHTS 
c MIDS. J^ o Spectrum 
aplica uma tecnica dife- 
rente. 

A fungao LEFTS (AS, 
numero) toma caracteres a 
partir do primeiro k esquer 



da no cordao AS e fornece tantos carac- 
teres quantos forem especificados no 
numero entre parenteses, Se AS for "SR 
MARIO SILVA" e voce especificar dois 
caracteres — LEFTS tA$,2) — , o resul- 
tado sera "SR". 

De igual modo, o comando RIGHTS 
eonta a partir da outra ponta do cordao 
— ou seja, de seu final a direita. Assim, 
RIGHTS (AS,5) produzira "SILVA". 

Com o MIDS voce pode especificar 
dois parametros: a posii;ao inicial no 
cordao, e o numero de caracteres a se- 
rem extraidos. Por exemplo, MIDS 
(A$,4,5) come(;ara no quarto caractere 
M e pegara cinco caracteres, produzin- 
do "MARIO", Se for especlficado so- 
mente um niimero. tal como em 
MID$(A$,4>, a fungao retornara todos 
OS caracteres daquela posifao, ate o fi- 
nal do cordao, 

O metodo empregado pelos micros 
da linha Sinclair, tais como o ZX-81 e 
o ZX Spectrum, e mais simples e dire- 
to. Nesses computadores, existe apenas 
uma fungao para manipulac^ao de cor- 
does; o comando TO. Por e-xemplo, AS 
(numero TO numero), A$ identifica o 
cordao a ser fracionado e os dois para- 
metros correspondemes ao inicio e ao 
fim do sub-cordao a ser extraido, 

Usando o mesmo cordao do exemplo 
anterior, AS = "SR MARIO SILVA", 
AS(] TO 2) da a voce "SR", AS (4 TO 
8} fornece "MARIO" e A$(I0TO 14) 
produz ' 'SILVA". Nao e necessario es- 
pecificar OS mimeros na fungao acima. 
Se for omitido o primeiro, o sub-cordao 
a ser extraido se iniciara no primeiro ca- 
ractere. Se o segundo for omitido, a fun- 
gao extraira ate o final do cordao. 

Eis aqui um programa que utili?;_a to- 
das as fungoes explicadas acima, E um 
jogo de palavras para duas pessoas. 



ES 



DETYPIST AGENCYZ CO 




Uma detas entra uraa expressao cujas le- 
tras serao embaralhadas e impressas pe- 
lo computador como um anagrama pa- 
ra o segundo jogador resolver. 

D 

10 CLS 

20 PRINT §7 5, "ANAGRAMA " 

30 PRINT el61,"DIGITE A PALAVRA 

A SER EMBARA L9ADA" 
40 AS-INKEY$:IF AS-"" THEN 40 
43 IF A$-CHR$(U) THEN 55 
46 IF AS<" " THEN 40 
49 WS'W3+AS:GOTO 40 
55 WOBDS-WS 
70 CLS 

80 FOR N«LEN(W$)TO 1 STEP -1 
90 M=RND{N) 

100 A$=AS+MIDS(W$,M,1) 
110 W$-LEFT$(W$.M-1)+MIDS(WS,M+ 

1) 

120 NEXT N 

130 PRINT 665, "0 ANAGRAMA E "A$ 

140 PRINT @129."QUE PALAVRA UOC 

E ACHA QUE E?" 

160 INPUT GUES3S 

170 G-G+1 

180 IF GUESS5OW0RDS THEN PRINT 

" ERRADO. TEMTE OUTRA VEZ" :GOTO 

160 
190 PRINT rPaiNT" MUITO BEH !" 
200 IF G=l THEN PRINT" VOCE USO 
U 1 TENTATiyA" ELSE PRINT"VOCE 
USOU" ;G; "TENTATIVAS" 
210 PRINT &480,"QUER JOGAR DE N 
QUO (S/N)?" 

220 AS=INKEy$:IF AS<>"S" AND A3 
<>"N" THEN 220 
230 IF A$="S" THEN RUN 
240 END 



10 CLS : LET aS-""; LET «-0 

20 PRINT ' " ANAGRAMA" 

30 PRINT ''"DIGITE A FALAVRA 

A SER EMBARALHADA" 

40 POKE 23609,20: POKE 23658, 

8: POKE 23624,63 

50 INPUT w$ 

55 LET 3$-w$ 

60 POKE 23624.56 

70 CLS 

80 FOR n-LEN WS TO 1 STEP -1 

90 LET ra-INT (RND*n}+l 
100 LET aS-aS+wS(in> 
110 LET w$-wS [ TO m-D+wS (m+l 
TO ) 

120 NEXT n 

130 PRINT '"0 ANAGRAMA E " ; a$ 
140 PRINT '"QUE PALAVRA VOCE A 
CHA QUE E?" 
160 INPUT LINE qS 
170 LET a-g+1 

180 IF gSOsS THEN PRINT "ERR 
ADO.TENTE OUTRA VEZ": GOTO 160 



190 PRINT '"MUITO BE«!" 

195 IF g-1 THEN PRINT "VOCE P 

RECISOU DE UMA TENTATIVA!": 

GOTO 210 

200 PRINT -VOCE PRECISOU DE " ; 

g;' TENTATIVAS" 

210 PRINT '"SUER JOGAR OUTRA U 

EZ{E/N)?" 

220 LET aS-INKEYS: IF aSO'S" 

AND aS<>"N'* THEN GOTO 220 

230 IF aS-"S" THEN RUN 



HIE] 



10 HOME 

20 HTAB 5: VTAB 2: PRINT "PROG 

RAMA DE ANAGHAKAS" 

30 VTAB 5: PRINT "DIGITE UMA P 

ALAVRA PARA SER MISTURADA:" 

50 INPUT WS 

55 W0$ - WS 

70 HOME 

80 FOR N - LEN fW$) TO 1 STEP 

- 1 
90 M - INT ( RND CI) * (N - 11 

) + 1 

100 AS - A$ + MIDS (WS.M.l) 

105 IF M - 1 THEN W3 - MIDS ( 

WS,M + 1) : GOTO 120 

110 W$ = LEFTS (WS,« - 1) + M 

IDS (W$,M + 1) 

120 NEXT 

130 HTAB 4: VTAB 12: PRINT "0 

ANAGRAMA E : " ; AS 

140 PRINT : HTAB 4: PRINT "QUE 

PALAVRA E ESTA " ; 
160 INPUT GUESSS 
170 G = G ■!■ 1 

180 IF GUESS5 < > W03 THEN P 
HINT : PRINT " ERRADO 1 TENTE NOV 
AMENTE. " : GOTO 160 
190 PRINT : PRINT "MUITO BEM!" 

200 IF G - 1 THEN PRINT "VOCE 
ACERTOU NA PRIMEIRAl": GOTO 21 



205 PRINT "VOCE TENTOU ";G;" V 

EZES." 

210 PRINT : PRINT ; PfiINT "VOC 

E JOGA OUTRA VEZ? " ; 

220 GET AS: IF AS < > "S" AND 
AS < > "N" THEN 220 

230 IF AS - "S" THEN HUN 

240 END 



90 M-INT(RNDtl)*(N-l))+l 

100 AS-A$+MID$(WS,M,1) 

110 WS-LEFT$(WS.M-1)+MID$(«S,M+ 

1) 

120 NEXT 

130 LOCATE 4,12:PRINT''0 anagram 

a 6: "iAS 

140 LOCATE 4,14:PRINT"Que palav 

ra 6 eata? " 

160 INPUT GUESSS 

170 G-G+1 

180 IF GUESSSOWOS THEN PRINT " 

Erradol Tente novamente. " :COT0 

160 

190 PRINT:PRINT"Muito beinl" 

200 IF G-1 THENPRlNT"Voc6 acert 

ou na primeira ! " ELSE PBINT"Voc 

6 tentou" ;G! "vezes. " 

210 PRINT: PRINT :PRINT'Voce joga 

outra vez? (S/N)' 
220 AS-INKEYS; IF ASO'S" AND AS 
<>"N" THEN 220 
230 IP AS- "S" THEN RUN 
240 END 

Quando rodar esse jogo, voce vera 
que a palavra digitada em primeiro lu- 
gar nao aparecera Jia tela. Esse oculta- 
mento lem por objetivo evitar que o seu 
adversario veja qual e a palavra. Cada 
computador utiliza um metodo diferente 
para fazer isso. Os micros da linha Spec- 
trum imprimem a palavra na mesma cor 
do piano de fundo, de modo a iorn^-!a 
invisivel. 

O TRS-Color enira a palavra utiii- 
zando FN KEYS, que apanha um carac- 
tere por vez no teclado, sem imprimi-los 
na tela. O MSX c o Apple 11 simples- 
mente apagam a tela depois da digita- 
gao da palavra. 

A rotina para embaralhar as letras es- 
ta nas linhas 80 a 120. O que aconlece 
e que OS caracteres sao apanhados alea- 
toriamente na palavra e acrescentados 



f>^ 



10 CLS :R-RND (-TIME) 

20 LOCATE 6, 2: PRINT" 

PROGRAMA DE ANAGRAMAE" 

30 LOCATE 1,5: PRINT" 

Digite uma palavra para 

aer ciiistura<3a : " 

50 INPUT WS 

55 WOS-WS 

70 CLS 

80 FOR N-LEN(US)T01 STEP 
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(urn de cada vez) a AS que, gradualmen- 
te, monta o anagrama. 

A linha 90 escolhe urn numero alea- 
tdrio M, entre 1 e a extensao da pala- 
vra, A linha 100 pega a M-esima letra 
e a acrescenta a A$. A linha 1 10 remo- 
ve esse caractere da expressao original, 
tomando a parte esquerda da palavra ate 
a posipao M (exclusive) e acresceatan- 
do o que vier apos M. Agora, a expres- 
sao tera um caractere a menos, mas da 
pr6xima vez, ao fechar o lapo, a varia- 
vel N tambem tera seu valor reduzido de 
um; assim, o niimero aleat6rio M sera 
novamente limitado pela extensao da 
palavra. 

Quando todos os caracteres tivcrem 
sido extraidos, o anagrama sera impres- 
so na tela e o seu adversario ter^ que adi- 
vinhar qual a palavra original, Quando 
ele acertar, o computador informara so- 
bre numero de tentativas feitas duran- 
te o Jogo e oferecera uma nova partida. 

E bastante facil alterar esse progra- 
ma, de modo a fazer com que as pala- 
vras sejam lidas a panir de uma lista de 
dados em linhas DATA, em vez de 
entra-las separadamente a todo memen- 
to. Voce pode igualmente elaborar um 
sistema de contagem de pontes, atri- 
buindo, por exemplo, dez pontes para 
uma adivinha9ao correta feita na pri- 
meira tentativa, nove para uma adivi- 
nhagao correta apos duas tentativas e as- 
sim por diante. 

Uma outra utilizagao desse metodo 
de fracionamento e a manipulagao de 
datas. Estas formam um cordao, mes- 
mo quando sao digitadas em forma nu- 
merica — como, por exemplo, 
27/03/51, que signifjca 27 de marfo de 
1951. E bem verdade que voce nao po- 
de rtianipular uma data expressa desse 
modo pelas leis normals da malemati- 
ca. Mas pode trabalhar com diferentes 
panes de uma data utilizando arit- 
metica. 

Dessa maneira, k possivel. por exem- 
plo, calcular quantos anos uma pessoa 
tern em um determinado dia, desde que 
se conhe(;a a data de seu nascimento. Da 
mesma forma, pode-se calcular quantos 
dias se passaram entre duas datas deter- 
minadas. 

Os comandos LEFTS, RIGHTS e 
MIDS — ou OS metodos equivalences 
usados pelos micros da linha Sinclair — 
podem ser usados facilmente para sepa- 
rar dia, o mes e o ano de uma data. 
Caso seja empregada a func^o VAL (ex- 
plicada mais adiante), os cordoes con- 
tendo mimeros poderao ser convertidos 



para ntimeros, que podem ser manipu- 
iados por meio de opera^oes aritmeticas 
tais como divisao, soma, subtrac^ao, etc. 



TAMANHO DE UM CORDAO 



As vezes e litil conhecer o compri- 
mento de um cordao. Se, por exempio, 
voce tiver um cspago limitado de memo- 
ria, reservado para a informapao digi- 
tada no teclado, ou se dispuser de uma 
area restrita na tela para exibi-la, pode 
ser conveniente verificar a extensao da 
entrada antes de continuar com o 
programa. 

O comando LEN(AS) fornece o nu- 
mero de caracteres de um cordao AS. E 
uma funcao numerica e pode ser mani- 
pulada de acordo com as !ei.s da_algebra. 
Por exemplo. se A$ = "SR JOAO SIL- 
V A", LEN (A$) = 13. Mas, se o progra- 
ma exigir que o usuario entre um nome, 
e s6 houver espai;o .suficiente na tela pa- 
ra exibir onze letras, o trecho seguinte 
podera ser utilizado para informar ao 
usuirio que ele deve limitar a extensao 
do nome a setentrado, elimsnando le- 
tras ou mesmo palavras: 

10 PRINT "DIGITE NOME DO 

ASSUNTO" 

20 INPUT A3 

30 IF LEN(Aa)>ll THEN PRINT 

"ARENAS II CARACTERES 

DISPONIVEIS" ; :GOTO 10 

O usudrio devera entao reduzir sua 
entrada e teclar ^'JOAO SILVA". 

Em outros casos. pode ser mais facil 
truncar automaticamente uma entrada, 
Isso e feito com uma linha tal como a 
que se segue: 

IF LEN(AS)>15 THEN LET AS 
LEFTS CAS, 15 



consisie em fazer programas "a prova 
de idiotas", ou seja, que impecama di- 
gita^ao equivocada dos dados. Por 
exemplo, na se<;ao abaixo: 

100 PRINT "DIGITE UM NUMERO" 
110 INPUT A 

...o computador espera que o usuario 
digite um numero. Se este digital um ca- 
ractere nao numerico, a raaioria dos 
computadores imprimira uma mensa- 
gem de erro. Esta, porem, avisara ape- 
nas queaJguma coisa estaerrada, semdi- 
zer onde est^ o erro. 

Porem, se for utilizado: 

110 INPUT AS 

...0 computador aceitara qualquer coi- 
sa digitada pelo usuario sem emitir men- 
sagens de erro. O passo seguinte sera 
converter o cordao em um niimero. Pa- 
ra isso, utiliza-se a fumjao VAL( ). Na 
maioria dos computadores, se houver al- 
guma letra misturada com numeros no 
cordao de entrada, VAL retornara um 
valor igual a 0. 

Infelizmente, esse metodo nao serve 
para os micros da linha Sinclair, nos 
quais o emprego do comando VAL com 
um cordao de caracteres que contenha 
letras produz uma mensagem de erro. 
Nesses micros, a I'uncao VAL so deve 
ser usada se o cordao for constitutdo 
apenas de numeros. Assim, 
VAL("1984") fornecera 1984; mas 
VAL("26/10/84") fornecera 0.03095..., 
porque os micros da linha Sinclair utili- 
zam o VAL para avaliar a expressao 16 
: 10 : 84, Por esse motive, os possuido- 
res do Sinclair nao precisam ler o resto 
desta setao, dirigindo-.se diretamente pa- 
ra o proximo "capitulo" do artigo (De 
mimeros a cordoes). 

Nos computadores TRS-80, TRS- 
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Uma das aplicafoes 
mais importantes das 
fun^oes de conversao de 
cordoes para numeros 



Color, Apple e MSX. a fungao VAL ex- 
tra! a parte num erica do cordao. Assim, 
se A$ contiver apenas digitos numericos, 
VAL( = A$) retornara o valor numeri- 
co correspondente, que podera ser pos- 
teriormente utilizado no programa. Se, 
ao contrario, AS nao contiver ntimeros, 
VAL(AS) retornara o valor 0. 

Voce podera entao escrever uma pe- 
quena sub-rolina que expliquc em deta- 
Ihes ao usuario que cle cometeu um er- 
ro, oferecendo-lhe ao-mesmo tempo ou- 
tra oportunidade de entrar os dados sem 
imerromper o programa ou desarrumar 
a tela do computador. 

Um ponto importante a ser observa- 
do em relaijao ao comando VAL e que 
ele so extra! niimeros no inicio do cor- 
dao. Dessa maneira, VAL("25 Julho") 
& igual a 25, mas VAL( "JULHO 25") 
e equivalente a 0. 

A funcao VAL e ijtil tamb(*m para 
ordenar niimeros extraidos de um cor- 
dao. Sc, por qualquer razao, voce tiver 
OS tiomes e as notas de uma classe de 
alunos em um cordao como A$ = "32 
CARLOS", BS"45 MARCOS" e 
CS = "41 JOSE" e assim por diante, e 
quiser uma media dos resultados, o pri- 
meiro passo a ser dado sera extrair as 
notas individuals utilizando o VAL. As- 
sim, VAL( = A$) fornece32, VAL(=B$) 
extrai 45 e VAL (C$) separa 4L 

Do mesmo modo, o comando VAL 
pode ser utilizado para ignorar as uni- 
dades de mcdida digitadas junto com os 
valores, O proximo programa mostra- 
ra a voce a diferen^a: 

100 LET AS = ''J2M" 

110 LET BS='110KG" 

120 PRINT"A$+BS- ";A$+BS 

130 PRINT"UAL(AS)+VAL(BS)-";UAL 

(A3)+VAL(BS) 

140 END 



DE NUMEROS A CORDOES 



A funfio STRS desempenha um pa- 
pel oposto ao do comando VAL: en- 
quanto cste extrai niimeros de cordoes, 
aquela converte niimeros em cordoes. A 
vantagem dcssa operafao e que os cor- 
does podem ser, por exemplo, fraciona- 
dos e concatenados. 

O comando STRS possui, portanto, 
inumeras aplicafoes. 

O programa a seguir transforma um 
numero decimal em bindrio. Embora os 
compuiadores trabalhem diretamente 



com a aritmetica dc niimeros binaries, 
a linguagem BASIC e capaz de manipu- 
lar apenas decimals ou, em aiguns ca- 
ses, hexadecimais e octais. Assim, quan- 
do um numero bin^rio aparecer em um 
programa em BASIC, efe precisa ser tra- 
tado como se Tosiie um cordao: 
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10 pbint"de:cimal para binario" 
20 ppint''u1gitk numero decima 
l inteiro" 

30 INPUT D 

40 LET BS="" 

50 LET BS-STHS (D-INT{D/2) *2)+BS 

60 LET D=INr{D/2) 

?0 IF DOO THEN GOTO 50 

80 PRINT"0 NUMERO BINARIO E";BS 

Quando for entrado um numero de- 
cimal positive, a linha 40 igualara B$ a 
um cordao vazio ou nulo; este seri en- 
tao progressivamente preenchido com 
digitos obtidcs pelo processamento nas 
iinhas 50 a 80. 

Na verdade, a linha 50 e a que mon- 
ta o numero binario. Ela subtrai duas 
vezes o valor inteiro da metade do va- 
lor decimal, a partir do proprio niirae- 
ro decimal. Essa e uma maneira de tes- 
tar se o numero e impar ou par. Se for 
impar, o resultado da operagao sera 1 ; 
se for par, o resultado sera 0. Estes sao, 
como voce j^ sabe, os dols digitos bi- 
nirios. 

Esses digitos sao convertidos em um 
cordao mediante o emprego da fun<pao 
STRS; em seguida, elessao montados 
por intermedio da concatenacao de ca- 
da novo digito com o resto do cordao. 
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finidos por A$. N deve ser um numero 
ou uma variavel numerica, enquanto A$ 
deve ser uma variavel aifanumerica, um 
caractere ou um cordao de caracteres en- 
tre aspas. Por exemplo, PRINT 
STRINGS (6, "*"} imprimira ****•*. 

Nos microcomputadores das Iinhas 
TRS-80 e TRS-Color a furnjao STRINGS 
utiliza somente o primeiro caractere do 
cordao cspecificado, ignorando o resto. 
Por exemplo, STRING$(3,"XBC'*) impri- 
me XXX, apenas. 

Els aqui dois programas (um para os 
modelos compaliveis com a linha TRS- 
Color e o outro para os da linha MSX) 
que utitizam STRINGS para imprimir 
uma borda decorativa na tela. Voce po- 
de utiliza-los para abrithantar a pagina- 
tiiulo de um jogo; 



El 

10 CLSO 

20 A$=CHRSa58J 

(156) )+CHR$(lS7 

30 BS=CHBS(154) 

G$(28,CHR5(172) 

(149) 

40 CS=CHR$(154) 

GS{28.CHB$ (163) 

(149) 

50 DS-CHRS(155) 

(147))+CHRS(151 

60 F$-CHBS(154) 

GS(28," ")+CHRS 

70 PRINT AS: 

80 PRINT B5: 

90 FOR K-1 TO 

100 PRINT FS; 

110 NEXT K 

120 PRINT CS; 

130 PRINT DS; 

140 PRINT 6237 

150 GOTO 150 



+STRINGS(30.CHHS 
) 

+CHRS(174)+STHIN 
)+CHRS(173)-^CKRS 

+CHflS(171)+STRIN 
)+CHB${167)+CHRS 

+STRlNGSt30,CHR3 
) 

+CHRS(170)+STBIN 
(165)+CHR$C149) 



11 



'OLA !": 



StRINGS £ If^STR 



Os computadores MSX, 
TRS-80 e TRS-Color 
contam com duas fun 
poes adicionais de ma- 
nipula^ao de cordoes 
alfanumericos: 
STRINGS e 
INSTR (estas 
nao existem nos 
micros da linha 
Apple, TK-2000 
e Sinclair), O 
STRING$(N,A$) 
produz um cordao 
de N caracteres de- 
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10 CLS:COLOR 6 
20 A$=CHHS(219 
+CHB$(219) 
30 BS-CHn$[209 
5(34,192)+CHR$ 
40 C$-CHRS(Z09 
SC34.195)+CHRS 
50 DS-CHfl$(209 
GS{34,32)+CHR$ 
70 PRINTAS 
80 PRINTB$ 
90 F0RK-1T018 
100 PRINTDS 
110 NEXT 
120 PRINTCS 
130 PRINTA$ 
140 LOCATE 16 
150 GOTO 150 



11 
)+STRlNGS(36,210) 

)+CHHS(32)+STRING 

(32)+CHRS(209) 

)+CHRS(32)+STRING 

{32)+CHBS[209} 

)+CHR$ (222)+STRIN 

(221J+CHRS(209) 



10;PRINT"OLA"; 



Os programas para o TRS-Color em- 
pregam diversos caracteres para impri- 
rtiir as bordas. Os blocos sao impresses 
com esquema de duas cores — amare- 
lo/preto e azul/preto. Para se fazer uma 
borda stmetrica, as cores sao invertidas, 
de cima para baixo, e da esquerda para 
adireita. Cinco cordoes sao utilizados; 
AS e B$ definem a parte superior da 
borda, F$ os lados, e CS e D$ a mar- 
gem inferior. A linha 150 impede que o 
sinal de prontidao OK perturbe o resul- 
tado fina! na tela. O programa para o 
MSX tambem utiliza caracteres graficos 
para fazer as bordas. 



COMO PESOUISAR UM COROAO 



O comando INSTR examina o cor- 
dao, procurando pela primeira ocorren- 
cia de um sub-cordao mais curto. As- 
sim, uma das aplica^oes mais comuas 
para o INSTR consiste em encontrar 
uma palavra dentro de uma senten^a, ou 
uma letra dentro de uma palavra. 

Para usa-lo, especifjca-se INSTR(A$, 
B$): isto significa que a fun<;ao deve in- 
dicar a posi(;ao inicial do sub-cordao B$ 
no cordao A$. Por exemplo, PRINT 
INSTRC'ALO". "L") exibird o nume- 
ro 2. Se o computador nao conseguir 
achar o cordao, ele retornara 0: 

10 AS='ALO" 

ZO BS='W" 

30 PRINT INSTB{AS.B$) 

Em alguns micros e possivel ainda es- 
pecificar um numero que define a posi- 
fao no cordao maior.a partir da qual a 
fun(;ao INSTR funcionar^. Assim, em 
INSTR(P,A$,B$), essa posicpao 6 indi- 



cada por P. Essa forma de utilizagao e 
muito (itil quando se deseja procurar 
ocorrencias repetidas do mesmo sub- 
cordao no cordao principal. 

Suponhamos que se deseja encontrar 
todas as ocorrencias da letra 1 na pala- 
vra INCONSTITUCIONAL. O primei- 
ro 1 est4 na posipao 1 . Para achar o se- 
gundo, entretanto, devemos usar o pa- 
rametro P, de modo a corae^ar a busca 
a partir de P= 1+ 1 (ou seja, P igual a 
2); porlanto, INSTR(P,"INC0NST1- 
TUCIONAL","r*). Para localizar a 
terceira ocorrencia do I, o numero P de- 
ve ser incremeniado mais uma vez, e as- 
sim por diante, ate que um resultado 
seja retornado pela fungao. 

Esse comando serve ainda para veri- 
ficar uma entrada feita pelo teclado. Se 
for preciso escolher uma op^ao em um 
menu, digitando a sua letra inicial, as al- 
ternativas poderao ser: 



(I)MPRIMIR TEXTO" 

(G)HAUAR TEXTO" 

(C)ABREGAR NOVO 

{E)DITAR O TEXTO" 



10 PRINT 

20 PRINT 

30 PRINT 

TEXTO" 

40 PRINT 

50 PRINT "ESCOLHA UMA OPeAO" 

60 INPUT AS 

O modo mais faeil de se verificar a 
validade de uma letra digitada pelo 
usuario consiste em acrescentar a linha 
a seguir: 

70 IF INSTR("PSLE",AS)=0 THEN 
GOTO 50 

Isso elimina possfveis mensagens de 
erro, que "estragariam" a tela. 



PROCESSAMENTO DE PALAVRAS 



As fungoes alfanumericas do BASIC 
tern um grande numero de aplica- 
t;des, especialmente no que se 
refere ao processamento 
de palavras. Um aspec- 
10 comum a progra- 
mas desse tipo e a 
possibilidade de 
substituir uma 
determinada 
palavra por 
oiitra (isso 
pode ser ne- 
cessario, por 
exemplo , 
quando apa- 
recer um erro 
de ortografia 
em todas as 



ocorrencias de uma palavraj. O INSTR 
e usado para localizar essas ocorrencias. 
Se a nova palavra tiver um comprimen- 
to diferente daquela a ser substituida, 
sera necessario movimentar o resto do 
texlo para criar espa^o. 



D 



10 LINEINPUT "DIGITE TEXTO: " ; T 

S 

20 LINEINPUT "PALAVRA A SER TRO 

CADA? ';WS 

30 LINEINPUT "NOVA PALAVRA? ";N 

WS 

40 P-1 

50 P0-INSTR(P,TS,WS1 

60 IF PO-Q THEN GOTO 100 

70 TS-LEFT$ (TS , PO-1) +NWS+RIGHTS 

(TS,LENCTS)-P0-LEN(M$)+1) 

80 P=PO+LEN{NWS) 

90 GOTO 50 

100 PRINT T$ 

110 GOTO 20 
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10 INPUT "DIGITE UMA FRASE ":T 

S 

15 TS - CHRS (32) + TS + CHHS 

(32) 
20 INPUT "PALAVRA A SER SUBSTI 
TUIDA " ;W$ 

30 INPUT -NOVA PALAVRA -;NW$ 
35 P - 
40 P - P + 1 

50 AS - MID$ (TS.P, LEW (M$) J 
60 IF AS < > WS THEN 90 
70 TS - LEFTS (TS.P - IJ + NW$ 

+ RIGHTS (TS. LEN (TS) - P ~ 

LEN (WS) + 1) 
80 P - P + LEN (NW$) - 1 
90 IF P < LEN (T$) THEN 40 
100 PRINT TS 
110 GOTO 20 
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10 INPUT "DIGITE TEXTO "; 

LINE t$: PRINT tS 

20 INPUT "PALAVRA A SEfl CORBI 

GIDA '; LINE v$ : LET W-LEN w$ 

30 INPUT "NOVA PALAVRA "; 

LINE nS: LET n=LEN nS 

35 LET p-0 

40 LET p-p+1 

50 IF p+u-l>LEN tS THEN GOTO 
100 

60 IF tS(p TO p+w-l)<>wS THEN 
GOTO 40 

70 LET tS-tSC TO 

+w TO ) : GOTO 40 
100 PRINT tS 
110 GOTO 20 



p-l)+n$+tS(p 



m 



10 LlNEINPUT"Di<jite uma frase: 

";TS 

20 LINEINPUT"Palavra a aer subs 

titulda? ";WS 

30 LINEINPUT'Nova palavra? ";NW 

5 

40 P-1 

50 P0-INSTR(P,TS,WS5 

60 IFPO-OTHENIOO 

70 TS-LEFT$ (TS, P0-1)+NWS+RIGHT$ 

(TS,LEN(TS)-P0-LEN(WS)+1) 

80 P-P0+LEN(NW3) 

90 GOTO 5 

100 PRINTT$ 

110 GOT020 

Comece entrando semen(;as bem sim- 
ples e tente o procedimento de sub.stiiui- 
i;ao de algumas letras ou palavras. 
Quando estas forem curtas como "ou", 
"na".etc., sera neoessario digita-las com 
am espaijo antes e outro depois; caso 
contrario, toda ocorrencia de "ou", 
"na", etc, dentro de outras palavras, 
(por ^exeniplo, "euro" e "banana") 
tambem sera modificada. 

O programa tunciona assim: a linha 
40 define o P para come(;ar o processo 
de pesquisa no ini'cio do lexto. As linhas 
50 e 60 encontram a primeira ocorren- 
cia da palavra ou da letra que se deseja 
substituir; cm seguida, a linha 70 a subs- 
titui por uma nova palavra. Essa linha 
investiga o texto do ini'cio ate a palavra 
a ser modificada, acrescenta a nova ex- 
pressao e concatena o restante do tex- 
to. O processo se repete at^ que todas 
as ocorrencias da palavra tenham sido 
substitui'das. A Hiiha 100 imprimeo re- 
sultado (OS programas profissionais de 
processamento de palavras sao, eviden- 
temente, mais complexes do que nosso 
exempio). 
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MBLER PARA 
PECTRUi 




Um programa que calcula a dimensao dos 
saltos e faz a tradupao dos 
c6digos mnemonicos Assembly para o 
sistema hexadecimal: o que 
mais poderiamos desejar na vida? 



Montar um programa em linguagem 
de maquina calculando os codigos a 
mao pode ser bastante cansativo, mes- 
mo que se saiba de cor os c6digos mne- 
monicos e seus equivalentes hexadeci- 
mais e se esteja familiarizado com todos 
OS modos de endercfamento. Com efei- 
to, alem de estar sujeito a erro, o traba- 
Iho de tradugao e de transferencia do 
programa para o computador e sempre 
tedioso. A solugao esta em entregar es- 
se trabalho ao proprio computador. 

Nesta liijao apresentamos um progra- 
ma Assembler para os micros compati- 
veis com o Sinclair Spectrum (por exem- 
pio, o TK-90X) com um minimo de 48K 
de memoria. Versoes para oulros com- 
putadores serao abordadas nas pr6xi- 
mas li?6es desta serie. O TK-20O0 nao 
necessita de um programa desses, pois 
ja vem com um mini-Assembler. O pro- 
grama apresentado aqui nao f'unciona 
no Spectrum de 16K, nem nos modelos 
compativeis com o ZX-81. Ele esta es- 
crito em BASIC, o que o lorna bem 
mais lento que os Assemblers conven- 
cionals, elaborados cm codigo de ma- 
quina. O importance, porem, e que ele 
nao so funciona, como e capaz de mon- 
tar programas Assembly, publkados 
por nos ou obtidos de outras fontes. Um 
programa longo levari um bom tempo 
para ser montado. 



ASSEMBLER 



5000 DIM K$ (110,4) : 
DIM mdlO) : LET h$ 
ABCDEF": LET b$---: 
3456789abcdef' 
SOlO DIM tS(110,24) : 
: DIM zS(100,6) : DIM 



5020 DIM b(9) 
1-2 TO 9: LET 
) : NEXT I 
5030 DIM r$(8 
4: FOR i-1 TO 
NEXT 1 : NEXT j 
5040 DATA "0" ,*1 
5-,"6-,-7-,-n2", 
o". "pe' , 'F* . "m" , 
4-,"32".''40" .-48 
","iy","bc","de" 



LET 
b(ll 



DIM k(llO) : 
"0123456789 
LET g$-"012 

DIM rClOO) 
zClOO) 
b(l)-l: FOR 
■b(i-l}-i-b(i-l 



4,4} : FOR- j-1 TO 
8: HEAD rS (i, j) : 



' ,'2' ,"3" ,~A 
'z~ , "nc" ,"c' 
'0-."e","16" 
',"56", "hi", 
"hl","3p"," 



P 
"2 



5050 DIM sS(8,2,4) : 
DIM US{18,10) : FOR 



DIM t(18) ; 
j-1 TO 2; FO 



H 1-1 TO 8/j: READ 3$ ( i , j ) : NEX 

T i: NEXT j: FOR j-1 TO 18: REA 

D t<j) ,uS(j> : NEXT j 

5060 DATA "b" . "c" , "d" , "e" , "h" , " 

1" ,"{hl) ",-a" ,"bc- ."de". "hi", "3 

P". 235, -de", 8, "af", 227. "tap) ".6 

0742. "0", 60758,"! ".60 766, -2", 23 

3," (hi) ",56809.- (ix) ".6&0 01,"(i 

Y>".10,'{bc) ",26, ■ (de) ".60767, - 

r",2," (bc)",18," (de) ". 60751, "r" 

, 249. -3p",60743,"i''. 60759.-1" 

5070 DEF FN b(x,l)-INT (X/bCl+1 

))-INT (x/b(i+2))*2 

5080 DEF FN X (x , 1 ) -X-b ( i + 2) *FN 

b(x,i)+b(i+l) 

5090 DEF FN j(x.l)-INT X-b(i+l) 

*1NT U/b(l+l)) 

5100 DEF FN e ( i$ , JS) - ( iS- jS ( TO 

LEN (i$))> 
5110 FOR i-1 TO 110: BEAD k${i) 
,k(i),ffifi): IF NOT FN e("*",kS( 
i)) THEN NEXT 1 

5120 DATA "Id", 10, 10, "Id", 26, 10 
," Id", 60767, 10. "Id", 60759, 10,-1 
d", 2, 138, "Id", 18. 138, "Id ".60751 
,138, "Id" ,60743,138, "Id" ,64.6, " 
Id-, 50, 202, "Id", 58, 74, "Id", 249, 
1 39, "Id-, 34, 195, "Id ",42, 67," Id" 
,60779, 197. -Id ".60771, 199, -Id", 
97, 165, "Id", 64, 54 
5130 DATA "adc",136,50,-adc",60 
746, 3, "add-, 128, 50, -add", 9. 149, 
"and ",160, 48, -or ",176, 48, -xor-, 
168, 48, "nop", 0,0, -sub-, 144, 48.- 
3bc" ,152.50,-3bc- ,60738 , 3, "cp" , 
184, 48, "jp", 130, 45, "jp", 233, 9," 
jp-,56809,9.-jp".65001.9,-jp",l 
31,49,-jr",96,45,"jr",88,41 
5140 DATA "call" ,132.45, "call-, 
141,41."ret-,201,0,-djnz".74,40 
, "dec", 11, 17. -dec". 5. 16. "Inc". 3 
.17."inc".4.16."pU3h",197,17,-p 
op'',193,17,"di",243,0,"ei",251, 
0, "halt -,118,0, "ex", 235, 139, "ex 
",8,15, "ex-. 227, 143, "exx", 217,0 
5150 DATA "rst",199,132,"rtg",l 
92 , 5 , -bi t" , 52032 , 20 , "defb" , -256 
,40,"ccf",63,0,"acf",55,0,"cpl" 
, 47, 0,"cpd-, 60841, 0,"cpdr-, 6065 
7, 0. "cpi", 60833, 0,'cplr". 60849, 
0,"daa",39,0,"iia".60742.8,"iai-, 
60758,6, "im- ,60766,8 
5160 DATA "in", 60736, 130. -in-, 1 
49, 42, -Ind-, 60848, 0,-indr-, 6081 
0, 0,"ini", 60840, 0,"ldd", 60840,0 
,-lddr-, 60856,0, " Idi" , 60832 ,0 , " 
ldir",6084e,0,"neg",60 740,0,-ot 
dr ", 60859. 0,-otir-, 6085 1,0, "out 
-.60737, 2. -out ",141, 170, "outd", 
6084 3,0, "out i", 60835,0 
5170 DATA "res". 52096, 20, "reti" 
, 60749. O.-retn". 60741, 0,-rl", 51 




984,64, "rla 
6,'irlca",7, 
,51992,64." 
6, 16 , -rrca" 
5180 DATA 
52000,16,-3 
2024,16. "de 
5190 DATA " 
T k.(110)-ll 
5200 LET b- 
-t-256*PEEK 2 
5210 LET cc 
THEN LET n 
5220 LET CC 
IF PEEK ba- 
: LET n-n+1 
S230 LET tS 



23, 0,"rlc", 51968,1 
0, -rid", 60783, 0,"rr" 
rra" , 31 , , "rrc- , 5197 
, 15, 0,-rrd-, 60775,0 
set", 52160, 20, -gla", 
ra".52006,16,-3ri",5 
Ew-,-256,41 
*-,0,0: LET 11-1: LE 

: LET ba-PEEK 23635 

3636+4: LET n-1 
1: IF PEEK ba<>234 
n-1: GOTO S250 
cc+1; LET ba-ba+1: 

13 THEN LET ba-ba+5 

; GOTO 5210 

(n.cc)-CHaS PEEK ba 



)S 



TRADUCAO DE ASSEMB L Y PARA 

CQDIGO DE MAQUINA 

COMQ CALCULAR SALTOS 
E DESVIOS 



RESERVE ESPACO PARA DADOS 



EVARIAVEIS 



COMO COLOCAR OS CODIGOS 



USO DE ROtULOS 



NAMEMORIAUSANDOPOKE 
TESTE PROGRAMA 




5240 GOTO SZ20 

5250 FOR g-1 TO 100: LET r(g)-g 

-1: NEXT g: LET fh-100 

5300 LET kO-0: LET k9-99: LET p 

0-0: LET w-O 

5310 LET k-kO; LET p-pO 

5320 GOSUB 8000 

5330 GOSUB 7000: LET 0$-i$: IF 

oSCl)-"*" THEN PRINT 0$;: GOTO 

5320 
5340 IF oS-"end" THEN PRINT '" 

endereco final ";p-l 
5350 IF o$-"end" then LET pO-p 
: GOTO 9999 

5370 IF o$<>"org' THEN GOTO 54 
00 
5380 GOSUB 7000: LET a-0; IF i$ 



(!)-"*» THEN LET a-p: LET i$-i 

S(2 TO ) 

5390 LET P'VhL iS+s: PRINT '" 

org ";p; : GOTO 5320 
5400 IF p-0 THEN PRINT " (falta 

org)" : LET p-50000 
5410 LET pS-0$+"!": FOR i-1+18* 
(oS<>"ld") TO 110: IF oS<-k$(i) 

AND pS>k$U) THEN GOTO 5500 
5420 NEXT I : PRINT oS 
5430 IF i$(l)-"." THEN LET i$- 
iS(2 TO ) 

5440 GOSUB 9000: LET gg-r<g) 
5450 IF gg<-100 THEN LET s-SGN 

z(gg): LET b-INT {ABS z(gg)/65 
536): LET r-ABS z (gg) -b*65536 : 
LET q-PEEK r+256*PEEK (r+1) : PO 



KE r 


FN j(p«a+q.S) ; PRINT " 


POK 


E "jr;- com " ; FN j(p*S+q,e): 


IF 


b THEN POKE (r+1), FN j((p* 


g+q 


)/256,8); PRINT " POKE " : r+1 


. ■• 


com ' 


;fN j{(p*9+q)/256,B) 




5460 


IF gg<-100 THEN LET gh 


-rC 


gg) : 


LET rtgg}-fh: LET fh-gg 


: L 


ET gg-gh: GOTO 5450 




5470 


IF iS-"" THEN LET r(g) 


-P+ 


100: 


GOTO 5330 




5480 


PRINT " (Linha nao foi 


rec 


onhecida) " 




5490 


GOTO 5420 




5500 


LET Z-0; LET r-0: LET e 


-0: 


PRINT " "iO$; 




5510 


LET op-k(i) : IF bU)-0 


THE 


N GOTO 6090 





J 



ODtGODSMAQUlNA 



5520 GOSUB 7000: LET a$-iS; PRl 
NT " ";aS; 

5530 LET m-md): LET op-k(i): L 
ET b-FN b(iB,0): LET b7-b+Z*FN b 
{in,7)+l: LET z-0: IF FN j{ni,3)< 
2 THEN LET cS-aS : GOTO 5720 
5540 FOB j-1 TO LEN aS : IF a$(j 
)-" , ' THEN GOTO 5580 
5550 NEXT 31 IF oS-'rst" OR oS- 
"rts" THEN GOTO 5580 
5560 IF FN eCoS.kS (i+D) THEN 
LET 1-1+1: GOTO 5530 
5570 PRINT " (deve haver doia o 
perandoaj"; GOTO 5320 
5580 LET b$-aSC TO J-1) : LET c$ 
-aS(j+l TO ) 

5590 IF FN b(iB,2) THEN GOTO 56 
50 

5600 IF FN b(lB,7) THEN LET d$- 
cS: LET cS-bS: LET bS-dS 
5610 IF b$-"ahl"(b+l TO b+b+1) 
THEN GOTO 5720 

5620 IF bS-'ic)' AND (oS-'in" 
R 0S-"0Ut") THEN GOTO 5720 
5630 IF (FN e(o$,kS(i+l)) ) AND 
(FN j(ni(i+l) ,3}>-2) THEN LET i 
-i+l: GOTO 5530 

5640 PRINT "(primeiro operando 
deve ger a ou hi)': GOTO 5320 
5650 IF FN b(m,l) THEN GOTO 56 
90 

5660 LET e$-(bS+" ") ( TO 4) : 
FOR j-1 TO 8: IF e$-rS{j,b7) TH 
EN LET OP-op+8*(3-l)* (b7<4)+16 
*{j-6)*Cb7-4)*(J>3} : LET z-{j-l 
}*(b7-4)*(j<-3) : GOTO 5710 
5670 NEXT j : IF pS>kStl+l) AND 
{FN j{lll(l + l) ,3)>-2) THEN LET 1 
-1+1: GOTO 5530 

5680 PRINT "(primeiro operando 
deve aer bit ou sinalizador ) " ; 
GOTO 5320 

5690 IF FN bCm,?) THEN LET dS- 
cS; LET cS"b$: LET b$-d$ : GOTO 
5660 

5700 LET x-8: GOSUB 5750: IF e 
THEN GOTO 57 30 
5710 IF cS-"' THEN GOTO 6090 
5720 LET x-l+15*b+7*(op<-6 AND 
op>-4 OR bS-"(c)"): LET b$-C$ : 
GOSUB 5750: IF NOT e THEN GOTO 

6090 
5730 IF e»2 OH p$>kS(i+l) AND F 
N j(ni(i + l> .3)-FN jCFN x{bi,0),3) 
THEN LET e-0 ; LET l-i+1: GOTO 
5530 
5740 GOTO 5320 

5750 LET r-0: IF FN b{ni,4) AND 
FN e(-("( TO NOT b),b$) THEN L 
ET 22-FN eCix" ,bSC2-b TO )+" " 
)+2*FN e t"iy",bSC2-b TO )+" "): 
IF z2 THEN LET Z-z2: LET eS-b 
S( TO LEN bS-NOT b) : LET b$-" <h 
l)"(l+b TO 4-b} : LET f$-"0"+e${ 
4-b TO ) 

5760 IF FN b(Bi,3} THEN GOTO 57 
90 

5770 LET eS-(b$+" ")( TO 4): 
FOR J-1 TO 8/Cb+l): IF e$-s$(j, 
b+1) THEN LET op-op+ ( j-1 ) «x : R 
ETUHN 

5780 GOTO 5610 
5790 LET j2-9+9*(oS-"ld") : FOR 




J-J2-8 TO j2: IF k(l)<>tCj) THE 

N GOTO 5810 

5800 IF FN e(bS,uS{j)) THEN RE 

TURN 

SeiO NEXT j: IF bS-"af" THEN I 

F FN eC"p",o$) THEN LET op-op+ 

48: RETURN 

5820 IF FN b(in,6) AND FN e("(", 

bS) THEN LET bS=b3 (2 TO LEN bS 

-1) : GOTO 5860 

5830 IF FN b(in,5) THEN LET op- 

FN x(op+6*N0T b.6): GOTO 5860 

5640 IF p$>k$(l+l) THEN LET e- 

2: RETURN 

5850 PRINT "(operand© incompati 

veD": LET e-1 : RETURN 

5860 LET r-65536 

5870 LET s-1 

5880 IF bS-"" THEN GOTO 6080 

5890 LET xS-b$(l): LET d$-bS{2 

TO ) : IF xS-"*" THEN LET r-r+P 

*3: LET bS-dS; GOTO 5870 

5900 IF xS-"*" THEN LET bS-d$: 

GOTO 5880 
5910 IF xS-"-' THEN LET bS-dS : 

LET a--s: GO- > 5880 
5920 IF xS-"'" THEN LET r-r+CO 
DE <3$*s: LET t5«dS{2 TO ): GOTO 

5870 
5930 LET q-0: IF x$<>"t- OR d$< 
"0" OR dS>"2" THEN GOTO 5960 
5940 IF d$>--0" AND dS<"2" THEN 
LET q-q*2+C0DE d$-48: LET dS- 



dS (Z TO } • GOTO 5940 
5950 LET r-r+q*B: LET bS-dS: GO 
TO 5870 

5960 IF x$<>"$'' OR d$<"0" OB dS 
>="g" THEN GOTO 6000 
5970 LET xS-CHRS CODE d$: FOR g 
-0 TO 15: IF xS<>hS(g+l) AND xS 
<>qS<g+l) THEN GOTO 5990 
5980 LET q-q*16+o: LET dS-dS(2 
TO ) : GOTO 5970 

5990 NEXT g: LET r-r+q*3: LET b 
S-d$: GOTO 5870 

6000 IF xS<"a" OR xS>"z" THEN 
GOTO 6040 

6010 LET i5-b$: GOSUB 9000: IF 
!$<>"' THEN GOSUB 9400 
6020 IF r(«)<>23000 AND r(g)>10 
THEN LET r-r+ <r (g) -100) *3 : L 
ET b$-l$: GOTO 5870 
5030 IF r(g)-23000 OR r(g)<-100 
THEN LET gh-r (f h) : LET r(fh)- 
r(q): LET r<g)-fh: LET fh-gh: L 
ET z(r (g))-(p+SGN op+(ABS op>25 
5)+2* (2>0)+65536*( (b OR FN b(Bi, 
6)) AND oS<>''jr->)*3: LET bS-lS 
; GOTO 5870 

6040 IF xS<''0'' OB X$>''9" THEN 
LET r=0: GOTO 60 70 
6050 IF bS>-"0" AND bS<":" THEN 
LET q-q*10+CODE bS-48: LET bS 
-b$(2 TO ) : GOTO 6050 
6060 LET r-r+3*q: GOTO 5870 
6070 PRINT " (enderecaiaento inco 



Illllll 



I 





rreto) " 

60S0 LET r--r- Cp+2)*(oS-" 

R OS-" jr") : RETURN 

6090 PRINT TAB 16;: LET 

6: GOSUB 6190: LET by-p: 

6190: GOSUB 6160 

6100 IF 7. THEN LET bY=l 

: GOSUB 6160; GOSUB 6160 

6110 IF op>-0 THEN LET 

S6: GOSUB 6170: GOSUB 61 

by-op: GOSUB 6180 
6120 IF r-0 THEN GOTO 5 
6130 GOSUB 6160: LET by- 
B 6180: IF (b OH FN b(ni, 

oS<>"jr" THEN LET by-r 
OSUB 6180 
6140 GOTO 5320 
6150 IF z AND INT by AND 
THEN GOSUB 6260: LET by 
: GOSUB 61B0: LET z-0 
6160 PRINT " " ; : RETURN 
6170 IF INT by<-0 THEN 
6180 LET by-FN j(by.8): 
by: LET p-p+1 
6190 LET by-FN j(by,8) : 
$(1+INT (by/16) ) ;h$ (FN j 
1) : 

6200 RETURN 
7000 IF k>n THEN LET i$ 

RETURN 
7010 LET ltl-k9+l : IF k9> 
(k) THEN LET i5-"/falta 
RETURN 



djnz" o 
by-p/ 25 

GOSUB 

89+z*32 

by-op/2 
50: LET 

320 

r: GOSU 
6)) AND 
/256: G 



NOT b 
-VAL fS 



RETURN 
POKE p, 

PRINT h 
(by, 4)+ 



-"end": 

-LEN t$ 
ndo/": 



7020 LET k9-kl- IF tS(k,kl)-" " 

THEN GOTO 7010 
7030 IF k9>LEN t$(k) THEN LET 
l$-tS(k)(kl TO ): RETURN 
7040 IF t$(k,k9)<>" " THEN LET 

k9-k9+l; GOTO 7030 
7050 LET lS-tS{k)(kl TO k9-l): 
RETURN 

8000 IF k>0 THEN IF t$(k) (k9 T 
)>tS(99) THEN PRINT t$(k)(k9 

TO ) ; 
8010 POKE 23692,0: LET k-k+1: L 
ET k9-0 

8020 PRINT : RETURN 
9000 LET xS="" 

9010 IF l$<"a" OR lS>'z" THEN 
GOTO 9030 

9020 LET X$-x$+lS{l): LET iS-iS 
(2 TO ) : GOTO 9010 
90 30 IF ISO'" THEN RETURN 
9400 FOR q-1 TO w: IF FN e(x$, 
zS(g)) THEN RETURN 
9410 NEXT g: LET vv-vv+1 : LET z 
$(vv)-x$: LET g-vv: LET r(<3)"23 
000 
94 2 RETURN 



COMO FUNCIONA PR06RAIVIA 



Comepando na linha 5000, o progra- 
ma deixa espatjo para seu programa em 
Assembly, que deve ser colocado em li- 
nhas RtM, Cada instrui;ao deve ser es- 
crita com letras minusculas e posiciona- 
da em uma linha REM separada. 

Antes de montar o programa, deve- 
mos proteger uma area dc mcmoria pa- 
ra que o Assernbler possa colocar as c6- 
digos, usando CLEAR. A primcira li- 
nha de seu programa deve ser mais ou 
menos assim: 

10 REM org 55000 

32000 e o enderego inicial do progra- 
ma em codigo. Obviamente, eie deve es- 
lar na area protegida da mem6ria. 

Se esquecermos de definir org, ou se- 
ja, a origem, o Assembler colocara o pro- 
grama a parti r de 50000. 

O programa aceita os codigos mne- 
monicos-padrao do chip Zilog Z-80, 
com excepao dos comandos de retorno 
condicional. Entretanto, o comando de 
retorno incondicional de sub-rotinas, 
cujo mnemonico c Tei,fundona em nos- 
so Assembler. 

Algumas vezes, contudo, utilizamos 
retornos condicionais, como ret m, que 
significa; "reiorne se nao for zero". 
Neste programa, porem, digits a instru- 
fao rts nz. A razao disso i que rts deve 
substituir re( sempre que forem neces- 
sarios retornos condicionais. Quando se 
tratarde retorno incondicional, ou seja, 
quando ret nao for seguido de nenhu- 
ma letra, use o mnemonico padrao ret. 

Niimeros hexadecimais devem ser 




que acontecer^ se houver um erro 
em meu programa fonte? 

Nosso Assembler i Qapaz de emitir 
mensagens de erro, pois a sua estru- 
tura de programapao estA preparada 
para detectar falhas no programa em 
Assembly. Alguns comandos, por 
exempio, s6 trabalham com os regis- 
tros a e h I. Se tentarmos usa-los com 
outros registros, o Assembler dir^; 
"Primeiro operando deve ser a ou h I " 

Se um comando nao for reconheci- 
do devido a um erro de digitacao, se- 
remos automaticamente informados: 
"Linha nao foi reconhecida". A expres- 
sao "Deve haver dois operandos" sig- 
nifica que deixamos de digitar um nO- 
mero vital ap6s o comando. "Operan- 
do incompatfvel" indica um uso inade- 
quado do comando. "Primeiro operan- 
do deve ser bit ou sinalizador" signifi- 
ca que um operando inadequado foi 
usado em um comando de desvio ou de 
atribuicao de bits. 

Existe uma maneira de se programar 
em Assembler nos ZX-81? 

Existe; mas o meio para isso nao e 
um programa montador desenvolvido 
em BASIC, como os que serao apresen- 
tados mais adiante para as linhas MSX, 
Apple II, TRS 80 e TRS-Color. 

Montadores em BASIC para o 
ZX-81 (com seus similares nacionais 
TK-85, CP-2D0, etc.) sao inviSveis por- 
que o programa resultante seria muito 
grande e de diffcil digitagao e operacao: 
na verdade, ele nao caberia na memd- 
ria da maioria dos micros dessa linha; 
al6m disso, o processo de tradupao e 
momagem desse programa seria extre- 
mamente lento. 

Pars comprovar isso, observe a lis- 
tagem para o ZX Spectrum que acom- 
panha este artigo: 6 a inexistencia de 
declaragoes READ e DATA no ZX 8 1 , 
o que dificulta a programacao. 

Seria possivel programar um As- 
sembler reduzido, sem ritulos atfab6- 
ticos, e com um conjunto menor de co- 
mandos. Mas isso o tornaria inutti pa- 
ra quern quer aprender a programar se- 
riamente, e impossibilitaria o usu^rio de 
digitar e testar os programas em codi- 
go Assembler que aparecerao em licoes 
futoras. Por isso, quem quiser progra- 
mar em Assembler no ZX-81, deve re- 
correr a um programa tradutor compac- 
to, eficiente e r^pido, escrito em codi- 
go de maquina e disponfvel comer 
cialmente. 



precedidos do caractere S; niimeros bi- 
narios, do caractere ^o. Qualquer nume- 
ro que nao seja precedidodealgum ca- 
ractere sera interpretado como decimal, 
Qualquer palavra que nao seja um co- 
mando Assembly sera considerada co- 
mo um rotulo (label). Evite usar pala- 
vras parecidas ou muito longas; nume- 
ros nao sao permitidos. 

Para que o Assembler saiba onde pa- 
rar, fermine seu programa com REM 
end. 

Uma vez colocado o programa As- 
sembly a ser montado (o programa fon- 
te) nas linhas REM iniciais, basta rodar 
o Assembler para se obter uma listagem 
dos codigos equivalentes na tela: o pro- 
grama objeto. O Assembler coloca o 
programa objeto simultaneamenie na 
memoria e na tela. 

Se a esta altura Tor comelido algum 
erro na digltacao das linhas, sera sufi- 
cierjte, para corrigi-lo, listar o Assem- 
bler, editar a linha REM corresponden- 
te e usar novamente RUN. 

Montado o programa, o enderei^o fi- 
nal da rotina em codigo de maquina 
aparecera na tela. 

Para executar o programa em codi- 
go usamos instrufSes do tipo RAN- 
DOM IJSR. 

Se quisermos gravar o programa ob- 
jeto, devemos dtgitar: 

SAVE "nome" CODEenderego inicial, 
niimero de b>1es. 



4 



COMO DETECTAR ERROS EM 
PROGRAMAS LONGOS 

Sempre que a mensagem "OUT OF 
DATA" aparecer na tela, verifique se 
esti faltando alguma coisa nas linhas 
DATA llembre-se de queaausenciade 
uma simples virgula pode deitar e per- 
der todo o programal. Um dos erros 
mais comuns na digita^ao de longos 
programas consiste justamente na 
omissao de trechos de linhas DATA. 
Por isso, caso seu Assembler nSo fun- 
cione ao ser rodado pela primeira vez, 
nao se desespere: ele certamente "em- 
pacou" dev'rdo a erros de digitacao. 

Esses errros podem ser detectados 
por meio de um programa de rastrea- 
mento, que escreve na tela o numero 
da linha BASIC que est^ sendo execu- 
tada. Um programa de rastreamento 
complete serd apresentado mais 
adiante. 
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"Nome" e o nome do programa ob- 
jeto e deve estar entre aspas, CODE in- 
forma ao computador que esta sendo 
gravado um programa em codigo de ma- 
quina e nao em BASIC. O endcrego ini- 
cial e a origem do programa na mem6- 
ria. Podemos calcular o niimero de bytes 
subtraindo a origem do endere^o final 
e somando I. 

O Assembler e o programa fonte po- 
dem ser gravados juntos, como um pro- 
grama BASIC, usando-se SAVE da ma- 
neira habitual. 



UM TESTE 



Para testar seu programa, entre o 
programa de deslocamento horizontal 
da tela para a direita, que se encontra 
na pagina 215. Uma vez traduzido para 
c6digo, esse programa ficar^ assim: 

11 FF 57 21 FE 57 06 CO C5 lA 
01 IF 00 ED B8 12 2B IB CI 10 
F3 C9 



Note que devemos usar lelras mimis- 
culas para digitar o programa fonte. 
Ncsso Assembler nao recdnhece coman- 
dos em maiiisculas. 



Nao apresentaremos um Assembler 
para o ZX-S 1 , pois e muito dificil escre- 
ver um programa desse tipo em BASIC 
para esse micro. Se voce tern um ZX-81 
e esta interessado em codigo de maqui- 
na, sugerimos a compra de um Assem- 
bler gravado em fita cassete e disponf- 
vcl em lojas especializadas. 

Caso ja disponha de algum, teste o 
programa de deslocamento da tela para 
a direita apresentado na pigina 217 
que, uma vez traduzido para codigo de 
maquina, ficara assim; 

2A OC 40 11 16 03 19 54 5D 13 

06 18 C5 lA 01 IF 00 ED B8 12 
2B IB IB CI 10 Fl C9 
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PARA QUE APRENDER 



DATILOGRAFIA? 



AS TECLAS DE APOlO 



MELHOREA VELOCIDADEEA 



PRECISAO NA DATILOGRAFIA 



Aspiracao de todo programador que 
se preza, a eficiencia no 
processamento de textos e na digttapao 
de pfogramas tern um pr^-requisito 
fundamental: saber datilografia. 



O futuro nos reserva, certamente, 
muitas surpresas no campo das relaijoes 
entre o homem e a mdquina, Uma de- 
ias pode ser a aberiura de novos canais 
de comunicagao entre o cornputador e 
o usuario — como, por exemplo, a voz 
humana. Atualmente, alguns desses sis- 
temas de conlrole mais sofisticados jd 
vem sendo aplicados em maquinas in- 
dustrials e comerciais a um prego rela- 
tivamente baixo. A maioria dos usua- 
rios, porem, vai ter que esperar muito 
tempo ate ter acesso a essas inovagoes. 
Enquanto isso, o velho teclado conti- 
nuard a ser o dispositive bisico de en- 
trada de um cornputador. 

Na verdade, o teclado e um instru- 
mento de eficiencia razodvel para se 
iransmitir instrucSes ao cornputador. 



Sua utiliza^ao, no entanto, consome 
muito tempo, especialmente quando o 
operador nao ^ um eximio datil6grafo. 
Essa perda de tempo e visive! quando 
tentamos copiar uma listagem e somos 
obrigados a otiiar do teclado para a te- 
la e desta para o papel, so para nos as- 
segurarmos de que os dados estao sen- 
do introduzidos corretamentc. 

Assim, por que nao utilizar o corn- 
putador no aprimoramento do modo de 
datilografar? Fazendo isso, voce econo- 
mizara tempo e evitarA dores de cabe- 
ga, quando quiser escrever programas 
ou explorar o potencial de um cornpu- 
tador como processador de textos. O 
programa que se segue ajudara a se fa- 
miliarizar com o teclado e aumentar a 
velocidade e a precisao na datilografia. 

O Sinclair Spectrum apresenta a des- 
vantagem de ter um teclado de dificil 
manipulagao e grande velocidade. A- in- 
trodugao de programas, contudo, exige 
apenas um toque de tecla para cada co- 
mando em BASIC. Note que nao esta- 
mos apresentando uma versSo do pro- 
grama para o Sinclair ZX-81 . Isso sede- 
ve ao fato de que sua execugao se tor- 



naria muito lenta, perdendo eficacia co- 
mo forma de treinamento. 



PROGRAMA 



Do mesmo modo que qualquer cur- 
so padrao de datilografia, nosso progra- 
ma tern por objetivo desenvolvcr meto- 
dtcamente a desireza do iniciante. Esse 
programa, no entanto, nao c nenhum 
processo magico e, como qualquer ou- 
tra coisa que se queira aprender, exige 
dedicagio. 

Para efeilos didaticos, ele foi dividi- 
do em etapas mais ou menos faceis, com 
.setjoes extras de programagao acrescen- 
tadas a cada uma das fases. Dessa m_a- 
neira, e possivel avan(;ar atraves de mis- 
seis cada vez mais dificeis. Outra vinu- 
de de nosso curso consiste em apresen- 
tar, ao longo de seu desenvolvimento, 
uma atualiza^So constanle da velocida- 
de e da precisao atingidas pelo iniciante. 

Se voce e usuario de um Apple II, fi- 
cara sem o recurso de cronometragem, 
devido k falta de um "clock" acessivel 
nesse micro. Talvez a cronometragem 
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manual o auxilie, nos nivds 4 e 5, a con- 
trolar setis progresses na datilografia. 



CONHECA AS TECLAS DE APOlO 



Ser urn eximio datilografo significa 
ser capaz de pressionar as [eclas corre- 
cas sem precisar olhar para das sempre 
que se quer localtzd-!as. Evidentemen- 
Le. isso s6 podera ser feito quando se sa- 
be previamente onde se encontram as le- 
tras no teclado. E preciso, portanto, 
"educar" os dedos para que eles eiicon- 
irem automaticamente as teclas de.seja- 
das. O primeiro passo para isso consis- 
te em posicionar os dedos sempre na 
mcsma posi^ao sobre o teclado. Datilo- 
grafos proCissionais fazem isso assegu- 
rando-se de que os dedos das duas macs 
repousem sempre sobre as mesmas te- 
clas. as denominadas tectas de apoio. 
Escas sao as teclas da fileira do meio do 



teclado, comefando pelas letras A, S, D, 
F... Portanto, estas serao as tectas que 
devemos memorizar em primeiro iugar. 

Uma vez dominada a localiza(;ao des- 
sas teclas basicas, o restante do teclado 
pode ser alcan^ado movendo-se cada de- 
do para cima ou para baixo. 

Para obter o m^imo rendimento no 
curso serd preciso ater-sc a essa dispo- 
sigao, sem nunca lentar "eiiganar" o 
computador. Por outro lado, os que in- 
sislem em continuar "catando milho" 
devem tambem procurar obter urn gra- 
dalivo aprimoramento de sua dcstreza. 

Ao introduzirmos o programa — la- 
refa que devera tornar-se cada vez mais 
facil a medida que o curso prosseguir — 
devemos ficar com as maos pousadas 
sobre o teciado, aguardando as instru- 
toes que aparecerem na tela e que serao 
explicadas a seguir. 

O dedo mi'nimo da mao esquerda de- 
ve repousar sobre a tecla A, o anular so- 



bre o S, assim por diante, lerminando 
com o dedo indicador sobre a tecla F. 
O indicador dircito, por sua vez, deve 
estar na tecla J, o dedo medio na tecla 
K, e assim por diante. Os polegares (ex- 
ceto no caso do Spectrum) devem 
posicionar-se sobre a barra de espace- 
jamento. As letras G e H, portanto, nao 
sao cobertas por nenhum dedo. Quan- 
do t necessario acsona-las, o G pode ser 
alcanpado com o dedo indicador esquer- 
do, e H com o indicador direito. 

Parece complicado, ma.<^ nao se preo- 
cupe: a primeira parte do programa sc 
destina justamente a I'arailiariza-lo com 
as letras do teclado. 



COMO FUNCIONA PROGRAMA 



Ao se executar o programa, a tela 
mostrara cinco op96es, que correspon- 
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dem a niveis de dificuldade crescente. 
Voce deve escolher uma entre elas. Se 
voce esta comeijando a aprender, preci- 
sa estudar primeiro a litjao 1 para, so de- 
pois de dominar seu conteiido, passar 
para a lifao 2, e assim por diante. 



dor de cada mao), voltando-se as teclas 
de apoio logo em seguida. Utilize o de- 
do mi'nimo direito para as tecias ; e C- 

O asterisco continuari no mesmo lu- 
gar, caso seja cometido algura engano. 
Uma tecla batida corretamente sera 
anunciada por um bip, e por um som 
grave se houver um erro ou se uma le- 
tra for omitida. (No Apple ocorreri o 
oposto.) 

Ao fim de cada exercicio, a lecla 
mostrara o tempo gasto e o niimero de 
erros cometidos. 



NiVEL 3 

Este nivel tambem apresenta letras 
aleatoriamcnte, uma por vez. Agora, 
porem, a tela nao indicar^ sua posi?ao 
no teclado. Em vez disso, elas serao 
mostradas individualmenie no centre da 
tela. Mais uma vez, as letras serao em 
niimcro de vinte. 

NfVEL 4 

Finalmente, pode-se datilografar al- 
gumas palavras. As expressoes deste 




NIVEL I 

A tela apresentara as teclas de apoio 
em uma linha, na mesma ordem em que 
estao no teclado. Ao mesmo tempo, se- 
rd mostrado um asterisco que, 
deslocando-se acima das letras, percor- 
rera o teclado do A ate o L no Spectrum 
e no CP400, ate o ; (ponto e vi'rgula) no 
Apple, ate o C^ no MSX. Para se acio- 
nar as teclas, deve-se toca-las na seqiiSn- 
cia indicada pelo asterisco e com o de- 
do correto (lembre decjue o G e o H exi- 
gem um deslocamento do dedo indica- 



NfVEL 2 

Uma vez familiarizado com a posi?ao 
das letras no teclado, voce pode passar 
para este nivel, que e semelhante ao pri- 
meiro, excel o que agora o asterisco se 
deslocara aleatoriamente sobre as letras 
(nao vale trapacear olhando a posi^ao 
da letra do teclado). Novamente, o tem- 
po que se levar para completar o exer- 
cicio (serao apresentadas vinte letras 
aleatoriamente) e o niimero de erros co- 
metidos serao apresentados no final. 



exerdcio utilizam apenas as letras das te- 
clas de apoio: FADA, por exempio. Ao 
contrario do nivel anterior, serao apre- 
sentadas no centre da tela vinte palavras 
(e nao letras) aleaioriamenie e etn suces- 
sao, isto ^, uma ap6s a outra. A medi- 
da que as palavras forem sendo copia- 
das, um asterisco indicara cada uma de 
suas letras. E, mais uma vez, sera apre- 
sentado o resultado do tempo gasco e da 
precisao. Nao se deve trapacear olhan- 
do para o teclado; senao, nao ser^ pos- 
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sivel completar os testes mais difkeis, 
a present ad OS nas pr6xinias li?6es. 

NiVEL 5 

Desta vez sera escrita uma sentenca 
com cerca de seis palavras aleatorias. A 
medida que estas forem sendo digiladas, 
as ietras aparecerao uma ap6s a outra. 
Quando a linha toda tiver sido datilo- 
grafada, sera mostrado o desempenho 
do datildgrafo, assim como um valor 
correspondente k vclocidade em termos 
de palavra por minuto. Ao se digitar as 
paiavras que surgirem na tela, nao se de- 
vc esquecer dos espa^ios em branco en- 
tre elas; esse espa<;o e obtido quando se 
toca na barra de espacejamento com um 
dos polegares. No Spectrum sera preci- 
se pressionar com o dedo mi'nimo a bar- 
ra deespagos, situada numa posi^ao um 
tanto incomoda. 

Deve-se exercitar cada um dos niveis, 



ate que se tome f^cil executa-los. Nos 
proximos capitulos acresceniaremos Ie- 
tras e palavras novas. 



10 BOBDEH 1: PAPEH 1: INK 7: 

CLS 

20 POKE 23658,8: LET EB-0 

30 LET SS-'ASDFGHJKL' 
100 PRINT INVERSE 1 i AT 8,3:" 
PROFESSOH DE DATILOGRAFIA " 
110 PRINT ''TAB 6;"SELECI0NE N 
IVEL (1 A 5)" 

120 IF INKEYS-"" THEN GOTO 
120 

130 LET AS-INKEYS: IF AS<''1" 
OR AS>"5" THEN GOTO 120 
140 SOUND .2,10 
150 GOSUB VAL A3*100+100 
160 GOTO 20 
200 GOSUB 1000 
210 FOR K-7 TO 23 STEP 2 
220 PRINT AT 10,K;"*" 
230 LET R$-S$((K-5)/2) 




240 


GOSUB 


1100 




250 


IF C-0 THEN 


GOTO 240 


260 


PRINT 


AT 10 


,K;- " 


270 


NEXT K 




280 


CLS : 


GOTO 


1300 


300 


GOSUB 


1000 




310 


FOB K- 


•1 TO 


20 


320 


LET HN-INT 


(HND*9)«2+1 


330 


PRINT 


AT 10 


,RN+6;"*": LET 


R$-SS( (RN+l)/2> 




340 


GOSUB 


1100: 


IF C-0 THEN 


GOTO 340 






350 


PRINT 


AT 10 


.RN+6;" " 


360 


NEXT K 




370 


CLS : 


GOTO 


1300 


400 


CLS : 


PRINT 


"DIGITE A LETR 


A INDICADA NA TELA" 


410 


FOR N = 


= 1 TO 


10 0: NEXT N 


420 


POKE 23672. 


0: POKE 23673,0 


430 


FOR K- 


1 TO 


20 


440 


LET RN-INT 


(RND*9)+1 


450 


PRINT 


AT 11 


,16;SS(RN) 


460 


LET r; 


-SS(HN) 


470 


GOSUB 


1100; 


IF C-0 THEN 


GOTO 470 






480 


PRINT 


INVERSE 1;AT 11.16: 


" " 


NEXT 


K 




4 90 


CLS ; 


GOTO 


1300 






^ 




25fi 



.^r;vxr. ;.v>-:'(riy.ig»— 'MMR'SiTOrtfiy 



-•.■S'^»a3>->'«^y..>-.i,.i?j« 



APUCACOES 



i» 



500 CLS : PRINT "DIGITE A PALA 

VRA INDICADA" : POKE 23672,0: 

POKE 23673,0 

510 LET TL-0: FOR N-1 TO 20: 

RESTORE : LET RN-INT CRND*24}+ 

1 

52 FOR K-1 TO RN: READ TS : 

NEXT K 

530 PRINT AT 10,13;" ": 

PRINT AT 10. 13;T$ 

540 FOR M-1 TO LEN TS: PRINT 

AT 9.11-t-M;" * ■" 

550 LET RS-TS(M): GOSUB 1100 

560 IF C«0 THEN GOTO 550 

570 NEXT M 

580 LET TL=TL+LEN TS : NEXT N 

590 CLS : PRINT AT 18,0;"PALAV 

RAS POR MINUTO- " ; INT (TL*500/ 

(PEEK 23672+256«PEEK 23673)+. 5 

) : GOTO 1300 

600 CLS : PRINT "DIGITE AS PAL 

AVBAS INDICADAS": LET TS-'" 

610 FOR N-1 TO 6: RESTORE : 

LET HN-INT {RND*24)+1: FOR K-1 

TO HNi READ XS ; NEXT K 

620 LET TS^TS+XS*" " 

630 NEXT N: LET TS-TS ( TO LEN 

TS-1) 

640 POKE 23672,0: POKE 23673,0 

: PRINT AT 10,0;TS 

650 PRINT AT 12,0:: FOR M-1 TO 

LEN TS 

660 LET RS-TS(M); GOSUB 1100 

670 IF C-0 THEN GOTO 660 

680 PRINT TS(M);: NEXT M 

690 LET TL-LEN TS : GOTO 590 
1000 CLS : PRINT "PRESSIONE A T 
ECLA INDICADA PELO ASTERISCO" 
1010 PRINT AT 12.7;"A S D F G H 

J K L" 
1020 FOR K-1 TO 100: NEXT K: PO 
KE 23672,0: POKE 23673,0 
1030 RETURN 
110 PAUSE 

1110 LET A$-INKEYS: IF AS<>E$ T 
HEN SOUND .2,-10: LET ER-ER+l : 

LET C-0: RETURN 
1120 SOUND .05,20: LET C-1: RET 
URN 

1300 PRINT AT 19,0: "TEMPO- ";(P 
EEK 23672+256*PEEK 236731/50;" 
SEGUNDOS": PRINT "NUMERO DE ERR 

QG« " ' ER 

1310 PAUSE 100: RETURN 
2000 DATA "FADA","GALA",''SALA'', 
"DADA" , "ASA" , "LAKA" , "ALAGA" , "AL 
ADA" , "LA" , "GAS" , "DALLAS" , "SAGA" 
2010 DATA " AFAGA" . " FALHA" , " ADAC 
A* , "HA" , "AGA" , "HAJA" , "HALL" , "GA 
LHAS" . "FALA", "FALHA". "AJA" ,"JAL 

Q 

10 OB$=-"A S D F G H J K L" 

20 CLS 

30 DIM WS (28) 

40 FOR K=l TO 28 

50 HEAD W$(K} 

60 NEXT 

70 PRINT e71,"QUAL O NIVEL DE" 

80 PRINT ei01,''DIfICULDADE (1-5 

J ?" 



90 PRINT §165. "DIGITE (0) PARA 

SAIR" 

lOO AS=rNKEY$:IF A$<"0" OR A$>" 

5" THEN 100 

110 A-VAL[A5);0N A+1 GOSUB 999, 

200. 300,400,600,300 

120 EE-0 

130 GOTO 70 

200 GOSUB 1000 

210 AP=1252 

220 FOR K=l TO 9 

230 AP=AP+2 

240 GOSUa 1100 

250 NEXT 

260 CLS: PRINT ©446 , "TEMPO-" ;TIM 

EH/ 50 i "SEGUNDOS" 

270 PRINT"NUMEHO DE ERROS="iER; 

280 RETURN 

300 GOSUB 1000 

310 FOR K=l TO 20 

320 AP=lZ52 + 2'>RNn(':') 

3 30 GOSUB 1100 

34 NEXT 

350 CLS 

360 PRINT 84-^^, "TEMJJO = " ;TIMER/ri 

; "SEGUNDOS" 

370 PRINT"NUMEHO DE ERROS=";ER; 

380 RETURN 

400 CLSO: PRINT" DIGITE A TECLA 

INDICADA NA TELA" 

410 PRINT 6206." ";:PRINT @23 

8, " " ; : PRINT @2 70, " " ; 

420 FOR K=l TO 20 

430 PS=MIDS (OBS, 2*RNDt9)-l-I) 

440 PRINT e239.PS: 

450 AS=INK£¥S:IF AS-"" THEN 450 

460 IF K-1 THEN TIMER'O 

470 IF ASOPS THEN SOUND 5.1 :ER 

=EH+llGOTO 450 

480 POKE 1263.128 

490 SOUND 200,1 

500 NEXT 

510 GOTO 350 

600 CLS: PRINT" DIGITE A TECLA Q 

UE APARECEB" 

610 T=0 

620 FOR K-1 TO 10 

630 PS-W3(HND(28)) 

640 T-T+LEN{PS) 

650 PRINT e237,P$ 

660 P'l 

670 POKE 1228+P.106 

660 AS=INKE¥SiIF AS""' THEN 680 

690 IF K-1 THEN TIMEH-0 

700 IF ASOMIDStPS.P.l) THEN ER 

-ER+1: SOUND 5.1: GOTO 670 

710 POKE 1228+P,96 

720 SOUND 200,1:P-P+1:IF P<-LEN 

(PS) THEN 670 

730 NEXT 

740 CLS 

750 PRINT 6416. USING "PALAVRAS P 

OH MINUTO-##».#*" ;T*500/TIMEH 

760 GOTO 360 

800 CLS:PS-"":FOa K-1 TO 6 

810 PS-P$+WSCRND(28))+- " 

820 NEXT 

830 PS-LEFTS{P$,LENtPS)-l) 

840 PRINT" DIGITE ESTAS PALAVRA 

s- 

850 P-l:PRINr e224,PS 

860 AS-INKEYS:1F AS-"" THEN 860 

870 T1MER-0:GOTO 890 




Qual a velocidade de datilografia que 
devo tomar como meta para comeqar^ 

Na etapa inicial do curso, o mais cor 
reto 6 preocupar-se com a precisao e 
nao com a velocidade. Depois que se 
consegue datilografar todas as palavras 
sem cometer nenhum erro, pode-se 
pensar em acelerar o ritmo de trabalho 

Deve-se praticaf os Nfveis 1, 2 e 3 
at^ que se consiga datilografar vinte le- 
tras em doze ou treze segundos; nos 
Mi'veis 4 e 5, deve-se ter como meta 
cerca de quinze palavras ou mats por 
minuto- 



880 AS-INKEYSrIF AS="" THEN 880 

890 IF A$<>MIDS{P5,P,1} THEN EB 

-EH+1: SOUND 5,i:G0T0 880 

900 POKE 1311-t-P,PEEK{1247 + P) 

910 SOUND 200,1:P-P+1:IF P<='LEN 

tP$) THEN 860 

920 T-LEN(PS) :GOTO 740 

999 CLS: END 

1000 CLS;PRINT"PRESS10NE A TECL 
A INDICADA PELO ASTERISCO" 
1010 PRINT t262,OBS 

1020 FOR K=l TO 1000;NEXT 

1030 RETURN 

1100 POKE AP.106 

1110 AS-INKEYS:IF AS-"" THEN 11 

10 

1120 IF K-1 THEN TIMEH-0 

1125 PRINTei4*32.ASC{AS) ; 

1126 PHINTei5*32,PEEKCAP+32) ; 
1130 IF (ASCCAS))<>PEEK{AP+32!T 
HEN SOUND S,1:EB-ER+1:GOTO 1110 
1140 SOUND 200,1 

115 POKE AP,96 

1160 RETURN 

9000 DATA FADA.GALA,SALA,DADA,A 

SA, LAKA, ALAGA, ALADA, LA. GAS, DALL 

AS , SAGA , GALHADA , FALA 

9010 DATA AFAGA, FALHA. ADAGA. HA, 

AGA , HAJA , JA , HALL , KA , FA , AJA , DAS , 

GAL HAS, J AL 



m 



5 R-HNDC-TIME) 

10 OB$-"A S D F G H J K L g":2S 

=CHRS(219) :SS-"L10 02 G" 

20 SCREEN1:CLS 

30 DIM WS(28) 

4 FOR K-1 TO 28 

50 READ WS(K) 

60 NEXT 

70 LOCATE 7,4:PRINT"Qual nfvel 

de" 2i 

80 LOCATE S,6:PRINT"dif iculdade 



? Cl-5)" 

90 LOCATE 3.9:PRINT"Tecle <0> P 

ara terminar . " 

100 A$-INKEY$:IF AS<"0" OR AS>" 

5" tHEN 100 

110 ON VAL(AS)+1 GOSUB 999,200, 

300,400.600.800 

120 ER-0 

130 GOTO 70 

200 GOSUB 1000 

210 AP=357 

220 FOR K-1 TO 10 

230 AP-AP+2 

240 GOSUB 1100 

250 NEXT 

260 CLS 

270 LOCATE 5, 12;PRlNT"Teinpo =" ; 

INT (TIME/60) ; "sequndos . ' 

280 LOCATE 6 ; PRINT"Naniero de er 

ros -" ; ER: 

290 RETURN 

300 GOSUB 1000 

310 FOR K-1 TO 20 

320 AP-359+INT{RND(l)*10)*2 

330 GOSUB 1100 

340 NEXT 

350 GOTO 260 

400 CLS:PRINT''Digite a letra mo 

strada na tela:" 

410 LOCATE 11 ,9:PRINTZS;ZS;ZS;Z 

S: LOCATE 11:PRINTZ$;" ";ZS:LOC 

ATE 11;PRINTZS;" " ; ZS : LOCATEll 

:PRINTZSiZS;ZS;ZS 



420 FOR K-1 TO 20 

430 P$-MID$(OBS,INTfRNDtl) *10)* 

2+1 ,1) 

440 LOCATE 1 3 , 1 1 : PRINTPS ; 

450 AS-INKEY$:IFAS-'*"THEN450 

460 IF K-1 THEN TIME-0 

470 IF ASOPS THEN PLAY S$:ER-E 

R+l;GOTO450 

480 PRINTCHRSCe) ;CHRS(32) ; 

490 BEEP 

500 NEXT; GOTO 260 

600 CLS;PRINT"Digite a palawra 

que aparecer:" 

610 TL-O 

620 FOR K-1 TO 10 

630 PS-WS{INT(RND(1)*28}+1} 

640 T-LEN(P$) :TL-TL+T:L-INT£(30 

-T)/2> 

645 LOCATE 0,11:PRINTSPACE$(30} 

650 LOCATE L, 11: PRINTPS 

655 FOR J-1 TO T 

660 LOCATE L , 10 : PRINTCHR$ (205) ; 

670 AS-INKEYSsIFAS-'-THENe/O 

680 IF K-1 THEN TlME-0 

690 IF AS<>MI0$(P$,J,1)THEN PLA 

Y SS;ER-ER+1:G0T0 670 

700 LOCATE L , 10 : PRINTCHRS (32) ; 

710 BEEP;L-L+1:NEXT 

7 20 NEXT 

730 CLS:LOCATE 2.16:PRINT "Pala 

vraa por mi nuto :";: PRINT USING 

"•tt.l#"rTL*600/TIME 



740 GOTO 270 

600 CLS:PS-"" 

810 FOR K-1 TO 5iPS-P$+US(INT(H 

ND(1)*28)+1}+CHRS(32) :NEXT 

620 PS-LEFT$CP3,LEN(PS)-1} 

830 PRINT'Diqite estas palawraa 

840 P-1: LOCATE 0,11: PRINTPS 

850 AS-INKEYS:IFA$-'"'THEN850 

660 TIME-0 :GOTO 680 

870 AS-INKEYS:IFAS-""THEN870 

880 IF A$<,>MIDS(PS,P,1)THEN PLA 

Y SS;ER-ER+1:G0T0 870 

890 L0CATE-1+P,14:PRINTMIDS(PS, 

P,l) 

900 BEEP;P-P+1:IF P<:-LEN(PS) TH 

EN 870 

910 TL-LEN(P$> :GOT0 730 

999 SCREENO:END 

1000 CLS:PRINT"Di9ite o caracte 
r Indicado pela seta:" 
1010 LOCATE 5.12;PRINTOBS 

1020 FOR K-1 TO 1000:NEXT 

1030 RETURN 

1100 UPOKE BASE (5)+AP. 205 

1110 A5-INKEY$-ir A$»""THEN 111 

D 

1120 IF K-1 THEN TIME-0 

1130 IF ASC(AS)<>VPEEK (BASE (5) 

-t-32+AP)THEN PLAY S$ : EH-ER+l :GOT 

1110 

1140 BEEP 

1150 VBOKE BASE(5)+AP,0 
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1160 RETURN 

9000 DATA FADA,SALA.M>AGA,DADA, 

FACA,FA,GALA,HAJA,AGA,HALL,ALAD 

A, AS A, GAS. FAL HA 

9010 DATA FAI.A,LA5A,ALAGA,LAKA, 

SAGA, JA,AJA.AFAGA,GALHA£>A,DALLA 

S.LA.HA.ASSA.LAJA 



READ W3{K) 
PRINT "Qua 
PRINT "dif 
PRINT 'Tec 
0" OR A$ > 
GOSUB 999, 



10 OBS - "A S D F G H 

K L ;" 

20 HOME 

30 DIM WS(28) 

40 FOB K - 1 TO 28 

: NEXT 

50 HTAB 14: VTAB 5 

1 nivel de" 

60 PRINT : HTAB 12 

iculdade? (1-5)" 

70 HTAB 9: VTAB H 

le <0> para terminar. 

80 GET AS: IF A$ < " 
"5" THEN 80 

90 ON VAL (A$) + 1 

200,300,400,500,600 

100 ER - 

110 GOTO 50 

200 GOSUB 1000 

210 AP - 2 

220 FOR K - 1 TO 10:AP - AP 

3: GOSUB 1100: NEXT 

230 HOME 

240 VTAB 15: HTAB 12 

unero de erros - "iER; 

250 RETURN 

300 GOSUB 1000 

310 FOB K - 1 TO 20 

320 AP - 2 + INT ( RND 

0+1) * 3 

330 GOSUB 1100: NEXT 

340 GOTO 230 

400 HOME : PRINT "Digite a let 

ra iBOBtrada na tela:' 

410 VTAB 9: HTAB 18: INVERSE l 
HTAB 18: PRINT " 
PRINT " 
1 TO 20:P$ - MIDS 
RND {1) * 10 + 1) 



PRINT "N 



CD * 1 



HTAB 19: PRINT PS 



PRINT ' 
': HTAB 18 
420 FOR K - 
COBS. INT ( 
• 3 - 2,1) 
430 VTAB 10 
: CHRS CB) ; 

440 GET A$: IF AS < > PS THEN 

PRINT CHRS (7);: EH - EB + 1: 

GOTO 440 

450 A - PEEK ( - 16336) :A - P 

EEK ( - 16336) : NEXT : NORMAL : 

GOTO 230 
500 HOME : PRINT "Diflite a pal 
avra que aparecer:* 
510 TL - 

1 TO 10 

INT ( RND CIJ * 28 



520 


FOR 


K - 


530 


PS - 


HS( 


) + 


1) 




540 


T - 


LEN 


- T) / 


2> 


550 


PRINT : 



(PS) :L - INT {(40 

VTAB 11: CALL - 9 
58: HTAB L: PRINT PS 
560 FOR J - TO T - 1 : VTAB 1 



J + L: 



PRINT 



CHRS 



0: HTAB 

(6); 

570 GET AS; IF AS < > MIDS { 

PS, J + 1,1) THEN PRINT CHRS ( 




) ; 

585 

590 

600 

610 



+ W 

+ 



7) ; :EB - EH + 1: GOTO 570 
580 A - PEEK ( - 16336) :A - P 
EEK { - 16336) : PRINT CHRS (32 
NEXT 
NEXT 
GOTO 230 
HOME ;PS - "" 
FOR K - 1 TO 6: PS - PS 
$( INT ( RND (1) * 28) + 1) 
CHRS (32) : NEXT 
620 PS - LEFTS (PS, LEN (PS) - 

1) 
630 PRINT "Digite estaa palavr 
aa : " 

640 P - 1: VTAB 11: HTAB 4: PHI 
NT PS 

IF AS < > MIDS ( 
PRINT CHRS (7) ; : 
GOTO 650 
HTAB P + 3: PRINT 



680 GOTO 230 

999 HOME : END 

1000 HOME : PRINT "Digite o ca 
racter indicado pelo s 
ster iaco; " 

1010 VTAB 12; HTAB 5: PRINT OB 
S 

1020 
1030 
1100 
1110 
PEEK 



650 GET AS: 
PS.P.l) THEN 
ER - EH + 1; 
660 VTAB 15: 

MIDS (PS,P,1) 
670 A - PEEK ( - 16336) :A - P 
EEK ( - 16336) : P - P + 1 : IF P 
< - LEN (PS) THEN 650 



THEN 
+ 1: 
1120 
PEEK 
,160 
1130 
9000 



FOR K - 1 TO 500: NEXT 
RETURN 

POKE 1319 + AP,170 
GET AS: IF ASC (AS) < > 
(1319 + AP + 128) - 128 

ER 



PRINT CHRS C7) ; :ER 
GOTO 1110 

A - PEEK C - 16336) :A - 
C - 16336) : POKE 1319 + AP 



RETURN 

DATA FALA,AGA,AFAGA,GAS, 
SALA , DADA , HA JA . HALL , LAKA , ASA , AL 
ADA , ASDFG , SAGA , KAKA 
9010 DATA AJA.FA,ALAGA, JA.AOA 
, HA , GALHADA ,. FALHA . GALA , FADA , DAL 
LAS , ASS ADA, LALA, : LKJH 



2i 



CODIGO Dl 




C6digos de controle podem ser usados 
no lugar de muitos comandos em 
BASIC. Entrados diretamente por meio 
do teclado em certos micros, 
eles proporcionam uma acao imediata. 



Os codigos tie camiole correspon- 
dem, tia maioria dos micros, aos codi- 
gos de a 31 no sistema ASCII, e ser- 
vem para realizar uma serie de funt^oes 
relacionadas principalmente com o con- 
trole do video. 

Caso voce nao saiba ainda, ASCII e 
um sistema de codificacao padronizado 
mundjaimentc c utilizado por quase to- 
dos OS computadores. ASCII significa 
American Standard Code/or Infonna- 
fion Interchange (Codigo Padrao Ame- 
ricano para Intercambio de Informa- 
fao), e se pronuncia dsqui. 

Originalmenle, os codigos de contro- 
le do ASCII correspondiam as fun(;6es 
basicas de transmissao de um terminal 
ligado ao computador: inicio de trans- 
missao, sinal de aten^ao, fim de trans- 
missao. acionamento da campainha do 
terminal, etc, 

Entretanto, cada fabricante de micro- 
compuiadores aproveitou a faisa dc co- 
digos de a 31 para implementar fun- 
goes diferentes. Com poucas excecoes, 
portanto, a maioria dos codigos de con- 
troie nao c padronizada, como aconte- 
ce com OS codigos corrcspondentes a ca- 
racteres comuns (letras, niimeros, sinais 
matematicos e do ponluai^ao, etc.). 



ACESSO AOS CODIGOS DE CONTROLE 



Exislem duas tecnicas bdsieas de uti- 
lizai^ao de codigos de controle. Uma de- 
las — mais universal — pode ser apli- 
cada a qualquer microcomputador que 
disponha da fun(;ao CHRS no interpre- 
tador BASIC. A outra e aplicavel ape- 
nas a alguns computadores; e a entrada 
direta dos codigos de controle por inter- 
medio do teclado. A lecla rotulada 
CONTROL (ou ainda CTRL), existente 
em muitos micros, deveserpressionada 
em combina^ao com outras teclas, pa- 
ra introduzir o codigo de controle no- 
ma linha de comando ou de programa. 

A funcao CHRS (abreviatura de cha- 
racter) permite converter um codigo nu- 
mcrico inteiro, situado entre e 255, ao 
seu caractere correspondente. Por exem- 
plo, PRINT CHRS(65) escreverd na te- 
la a letra A (maiuscula). 

A fungao CHRS futiciona tambcm 
com OS caracteres de controle. Dessa 




forma, se acionarmos ura comando 
PRINT associado a um ou mais carac- 
teres de controle, poderemos realizar 
uma serie de tarefas basicas (ate mesmo 
algumas que normaimente podem nao 
ser acessivcis por iniermedio de coman- 
do.ii BASIC). A seguir, damos alguns 
exemplos para o TRS-80 (os outros 
computadores serao abordados na con- 
tinua^ao destc capilulo). 

D 

Voce ja conhecc a instrucao CLS, 
que serve para limpar a tela e retornar 
o cursor a posigao superior esquerda do 
video. Nao seria interessante se pudes- 
semos apagar a tela apenas de um de- 
terminado ponto para baixo ou ate o fi- 
nal de uma linha? Efeitos desse tipo sac 
facilmente obtidos por meio da combi- 
na<;ao do comando PRINT CHRS(n) 
com OS seguintes codigos: 

8 - recua e apaga o ultimo caracte- 
re na tela; 

1 - avanga o cursor para o comego 



da linha seguinte; 
1 4 - liga o cursor; 

1 5 - desliga o cursor; 

2 3 - converte a tela para a largura de 

32 caracteres; 
2 8 - retorna o cursor a posigao 0,0, 
.sem apagar a tela; 

2 9 - move o cursor para o comcQO da 

linha; 

3 - apaga da posifao do cursor at6 

o final da linha; 
3 I - apaga o espapo que vai da posi- 
gao do cursor ate o final da tela. 

Uma seqiiencia de caracteres de con- 
trole pode ser colocada tambem dentro 
de uma cadeia de caracteres, por meio 
da funcao STRINGS. Por exempio: 
PRINT STRING$(5,10) provoca o 
avango do cursor cinco linhas para bai- 
xo. Esse comando corresponde a agao 
de pressionar a tecla com a flecha para 
baixo cinco vezes seguidas, com a van- 
tagem de poder ser colocado dentro de 
um programa (corresponde a cinco co- 
mandos PRINT em branco). 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



APUCAQOES 

Continue seu cucso de datilografia com o computador, 
praticando agora com todo o alfabeto. 

PROGRAMACAO DE JOGOS 

Aprenda a movimentar um her6i em meio cis ameagas de 
um mundo hostil cujos limites sao os da imaginagao. 

PROGRAMAQAO BASIC 

Come examinar a mem6ria do computador. Os comandos 
PEEK e POKE. Cores do TRS-Coior. 




